diff options
author | Robin Barker <rmbarker@cpan.org> | 2011-05-15 14:40:46 +0100 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-05-19 12:56:07 -0700 |
commit | 9c4fdda15e362ce5accd8f03629d2bbb7bb40027 (patch) | |
tree | 84f513d790eae22420b5977235c8c3a09f228fa6 | |
parent | 9410e98db2629cb1014040562236ba42a308f939 (diff) | |
download | perl-9c4fdda15e362ce5accd8f03629d2bbb7bb40027.tar.gz |
use __attribute__unused__ to silence -Wunused-but-set-variable
-rw-r--r-- | regcomp.h | 3 | ||||
-rw-r--r-- | regexec.c | 12 |
2 files changed, 12 insertions, 3 deletions
@@ -836,7 +836,8 @@ re.pm, especially to the documentation. #ifdef DEBUGGING -#define GET_RE_DEBUG_FLAGS_DECL VOL IV re_debug_flags = 0; GET_RE_DEBUG_FLAGS; +#define GET_RE_DEBUG_FLAGS_DECL VOL IV re_debug_flags \ + __attribute__unused__ = 0; GET_RE_DEBUG_FLAGS; #define RE_PV_COLOR_DECL(rpv,rlen,isuni,dsv,pv,l,m,c1,c2) \ const char * const rpv = \ @@ -123,11 +123,19 @@ /* these are unrolled below in the CCC_TRY_XXX defined */ #define LOAD_UTF8_CHARCLASS(class,str) STMT_START { \ - if (!CAT2(PL_utf8_,class)) { bool ok; ENTER; save_re_context(); ok=CAT2(is_utf8_,class)((const U8*)str); assert(ok); LEAVE; } } STMT_END + if (!CAT2(PL_utf8_,class)) { \ + bool ok; \ + ENTER; save_re_context(); \ + ok=CAT2(is_utf8_,class)((const U8*)str); \ + assert(ok); LEAVE; } } STMT_END /* Doesn't do an assert to verify that is correct */ #define LOAD_UTF8_CHARCLASS_NO_CHECK(class) STMT_START { \ - if (!CAT2(PL_utf8_,class)) { bool throw_away; ENTER; save_re_context(); throw_away = CAT2(is_utf8_,class)((const U8*)" "); LEAVE; } } STMT_END + if (!CAT2(PL_utf8_,class)) { \ + bool throw_away __attribute__unused__; \ + ENTER; save_re_context(); \ + throw_away = CAT2(is_utf8_,class)((const U8*)" "); \ + LEAVE; } } STMT_END #define LOAD_UTF8_CHARCLASS_ALNUM() LOAD_UTF8_CHARCLASS(alnum,"a") #define LOAD_UTF8_CHARCLASS_DIGIT() LOAD_UTF8_CHARCLASS(digit,"0") |