Add dTHR so that it compiles miniperl in threaded mode

p4raw-id: //depot/perl@1667

1 files changed, 5 insertions, 2 deletions

diff --git a/regexec.c b/regexec.c
index 400843bfe7..0ac9173129 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2456,7 +2456,8 @@ reginclass(register char *p, register I32 c)
 
 STATIC bool
 reginclassutf8(regnode *f, U8 *p)
-{
+{                                           
+    dTHR;
     char flags = ARG1(f);
     bool match = FALSE;
     SV *sv = (SV*)PL_regdata->data[ARG2(f)];
@@ -2493,7 +2494,8 @@ reginclassutf8(regnode *f, U8 *p)
 
 STATIC char *
 reghop(unsigned char *s, I32 off)
-{
+{                               
+    dTHR;
     if (off >= 0) {
 	while (off-- && s < (U8*)PL_regeol)
 	    s += UTF8SKIP(s);
@@ -2515,6 +2517,7 @@ reghop(unsigned char *s, I32 off)
 STATIC char *
 reghopmaybe(unsigned char *s, I32 off)
 {
+    dTHR;
     if (off >= 0) {
 	while (off-- && s < (U8*)PL_regeol)
 	    s += UTF8SKIP(s);