This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Regexp tests and UTF8
authorIlya Zakharevich <ilya@math.berkeley.edu>
Tue, 8 Dec 1998 07:02:01 +0000 (09:02 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 29 Dec 1998 11:21:31 +0000 (11:21 +0000)
To: perl5-porters@perl.org (Mailing list Perl5)
Message-ID: <MLIST_199812080447.XAA05297@monk.mps.ohio-state.edu>

p4raw-id: //depot/cfgperl@2514

regcomp.c

index 70682ae..2f39b27 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -3211,4 +3211,15 @@ save_re_context(void)
     SAVESPTR(PL_regcode);              /* Code-emit pointer; &regdummy = don't */
     SAVEPPTR(PL_regxend);              /* End of input for compile */
     SAVEPPTR(PL_regcomp_parse);                /* Input-scan pointer. */
+    SAVESPTR(PL_reg_call_cc);          /* from regexec.c */
+    SAVESPTR(PL_reg_re);               /* from regexec.c */
+    SAVEPPTR(PL_reg_ganch);            /* from regexec.c */
+    SAVESPTR(PL_reg_sv);               /* from regexec.c */
+    SAVESPTR(PL_reg_magic);            /* from regexec.c */
+    SAVEI32(PL_reg_oldpos);                    /* from regexec.c */
+    SAVESPTR(PL_reg_oldcurpm);         /* from regexec.c */
+    SAVESPTR(PL_reg_curpm);            /* from regexec.c */
+#ifdef DEBUGGING
+    SAVEPPTR(PL_reg_starttry);         /* from regexec.c */    
+#endif
 }