X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;fp=Upper.xs;h=801f719963491eefa200c25ea0f2835984a71b48;hb=f0cfe9b5c3139bdfb9110efd9b56c180f9bc8cc4;hp=264bfdad3b712a7d3423a9a49c98e82c4ba838b3;hpb=5d565c2feed583ba26f5451a0b25f1a5df2be4ed;p=perl%2Fmodules%2FScope-Upper.git diff --git a/Upper.xs b/Upper.xs index 264bfda..801f719 100644 --- a/Upper.xs +++ b/Upper.xs @@ -165,10 +165,10 @@ typedef struct { #define SU_UD_ORIGIN(U) (((su_ud_common *) (U))->origin) #define SU_UD_HANDLER(U) (((su_ud_common *) (U))->handler) -#define SU_UD_FREE(U) do { \ +#define SU_UD_FREE(U) STMT_START { \ if (SU_UD_ORIGIN(U)) Safefree(SU_UD_ORIGIN(U)); \ Safefree(U); \ -} while (0) +} STMT_END /* ... Reap ................................................................ */