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, 3 insertions, 2 deletions

diff --git a/regexec.c b/regexec.c
index 374d480be7..79fab43436 100644
--- a/regexec.c
+++ b/regexec.c
@@ -5022,8 +5022,9 @@ NULL
                     U8 tmpbuf2[UTF8_MAXBYTES_CASE+1];
                     STRLEN tmplen2;
                     to_uni_fold(n, tmpbuf1, &tmplen1);
-                    to_utf8_fold(locinput, tmpbuf2, &tmplen2);    
-                    if (tmplen1!=tmplen2 || !strnEQ(tmpbuf1,tmpbuf2,tmplen1))
+                    to_utf8_fold((U8*)locinput, tmpbuf2, &tmplen2);    
+                    if (tmplen1!=tmplen2
+			|| !strnEQ((char *)tmpbuf1,(char *)tmpbuf2,tmplen1))
                         sayNO;
                     else 
                         locinput += UTF8SKIP(locinput);