X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=regcomp.c;h=356fcb31494da66928682ad5d83d2160b7666345;hb=11faa288e292c27cb2ddc4ccdc483b523d26ce19;hp=231235ca335dc13e764c8b5fd484baab47252b58;hpb=1ae6be1c7649fa55b3105031a58ffe146fa4f2fd;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/regcomp.c b/regcomp.c
index 231235c..356fcb3 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -2297,7 +2297,7 @@ STATIC regnode *
 S_regclass(pTHX)
 {
     dTHR;
-    register I32 value;
+    register UV value;
     register I32 lastvalue = OOB_CHAR8;
     register I32 range = 0;
     register regnode *ret;
@@ -2725,7 +2725,7 @@ S_regclassutf8(pTHX)
 {
     dTHR;
     register char *e;
-    register U32 value;
+    register UV value;
     register U32 lastvalue = OOB_UTF8;
     register I32 range = 0;
     register regnode *ret;
@@ -3541,7 +3541,6 @@ Perl_save_re_context(pTHX)
 }
 
 #ifdef PERL_OBJECT
-#define NO_XSLOCKS
 #include "XSUB.h"
 #undef this
 #define this pPerl