Integrate thrperl 5.003->5.004.

p4raw-id: //depot/perl@24

1 files changed, 3 insertions, 0 deletions

diff --git a/regexec.c b/regexec.c
index 630b130c88..e851808ad6 100644
--- a/regexec.c
+++ b/regexec.c
@@ -89,6 +89,7 @@ static CHECKPOINT
 regcppush(parenfloor)
 I32 parenfloor;
 {
+    dTHR;
     int retval = savestack_ix;
     int i = (regsize - parenfloor) * 3;
     int p;
@@ -110,6 +111,7 @@ I32 parenfloor;
 static char *
 regcppop()
 {
+    dTHR;
     I32 i = SSPOPINT;
     U32 paren = 0;
     char *input;
@@ -863,6 +865,7 @@ char *prog;
 		*reglastparen = n;
 	    break;
 	case CURLYX: {
+		dTHR;	    
 		CURCUR cc;
 		CHECKPOINT cp = savestack_ix;
 		cc.oldcc = regcc;