Avoid a SIGBUS caused by passing a U32 pointer to utf8_to_uvchr(),

which expects a STRLEN pointer.
Avoid some signed/unsigned casting warnings by adding casts.

p4raw-id: //depot/perl@31093

1 files changed, 1 insertions, 1 deletions

diff --git a/regcomp.c b/regcomp.c
index 40b2ac184a..80aa335ef9 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -6576,7 +6576,7 @@ tryagain:
     case 0xC3:
     case 0xCE:
         if (FOLD && is_TRICKYFOLD(RExC_parse,UTF)) {
-            U32 len = UTF ? 0 : 1;
+            STRLEN len = UTF ? 0 : 1;
             U32 cp = UTF ? utf8_to_uvchr((U8*)RExC_parse, &len) : (U32)((U8*)RExC_parse)[0];
             *flagp |= HASWIDTH; /* could be SIMPLE too, but needs a handler in regexec.regrepeat */
             RExC_parse+=len;