From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Tue, 8 Dec 1998 07:02:01 +0000 (+0200)
Subject: Regexp tests and UTF8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=54b6e2faa887aa86b7b0c280adebcdc0f0804c55;p=p5sagit%2Fp5-mst-13.2.git

Regexp tests and UTF8

To: perl5-porters@perl.org (Mailing list Perl5)
Message-ID: <MLIST_199812080447.XAA05297@monk.mps.ohio-state.edu>

p4raw-id: //depot/cfgperl@2514
---

diff --git a/regcomp.c b/regcomp.c
index 70682ae..2f39b27 100644
--- 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
 }