This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexec.c: Change declaration to U8
authorKarl Williamson <khw@cpan.org>
Sun, 31 Dec 2017 19:03:01 +0000 (12:03 -0700)
committerKarl Williamson <khw@cpan.org>
Mon, 1 Jan 2018 19:37:50 +0000 (12:37 -0700)
from char in the new script_run code.  This makes it more convenient to
run gdb on.

regexec.c

index 5c9d7b6..96d5f13 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -7471,8 +7471,8 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
             SCX_enum * intersection = NULL;
             PERL_UINT_FAST8_T intersection_len = 0;
 
             SCX_enum * intersection = NULL;
             PERL_UINT_FAST8_T intersection_len = 0;
 
-            const char * s = script_run_begin;
-            const char * strend = locinput;
+            const U8 * s = (U8 *) script_run_begin;
+            const U8 * strend = (U8 *) locinput;
 
             assert(s);
 
 
             assert(s);