This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mark a var as volatile to avoid longjmp warning
authorDavid Mitchell <davem@iabyn.com>
Tue, 28 Feb 2012 15:05:15 +0000 (15:05 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 13 Jun 2012 12:32:49 +0000 (13:32 +0100)
regcomp.c

index 87f33e7..17800e7 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -5032,7 +5032,7 @@ Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count,
     bool used_setjump = FALSE;
     regex_charset initial_charset = get_regex_charset(orig_rx_flags);
     bool code_is_utf8 = 0;
     bool used_setjump = FALSE;
     regex_charset initial_charset = get_regex_charset(orig_rx_flags);
     bool code_is_utf8 = 0;
-    bool recompile = 0;
+    bool VOL recompile = 0;
     U8 jump_ret = 0;
     dJMPENV;
     scan_data_t data;
     U8 jump_ret = 0;
     dJMPENV;
     scan_data_t data;