Restore modification in warnings.h from change 28662 by backporting it

to warnings.pl

p4raw-id: //depot/perl@28666

diff --git a/warnings.h b/warnings.h
index 423a21a..9c84c25 100644 (file)
--- a/warnings.h
+++ b/warnings.h
@@ -92,8 +92,8 @@
 #define isWARNf_on(c,x)        (IsSet((U8 *)(c + 1), 2*(x)+1))
 
 #define DUP_WARNINGS(p)                \
-    specialWARN(p) ? (p)       \
-    : CopyD(p, PerlMemShared_malloc(sizeof(*p)+*p), sizeof(*p)+*p, char)
+    (STRLEN*)(specialWARN(p) ? (p)     \
+    : CopyD(p, PerlMemShared_malloc(sizeof(*p)+*p), sizeof(*p)+*p, char))
 
 #define ckWARN(w)              Perl_ckwarn(aTHX_ packWARN(w))
 #define ckWARN2(w1,w2)         Perl_ckwarn(aTHX_ packWARN2(w1,w2))

diff --git a/warnings.pl b/warnings.pl
index 0cb5bbd..8d89134 100644 (file)
--- a/warnings.pl
+++ b/warnings.pl
@@ -332,8 +332,8 @@ print WARN <<'EOM';
 #define isWARNf_on(c,x)        (IsSet((U8 *)(c + 1), 2*(x)+1))
 
 #define DUP_WARNINGS(p)                \
-    specialWARN(p) ? (p)       \
-    : CopyD(p, PerlMemShared_malloc(sizeof(*p)+*p), sizeof(*p)+*p, char)
+    (STRLEN*)(specialWARN(p) ? (p)     \
+    : CopyD(p, PerlMemShared_malloc(sizeof(*p)+*p), sizeof(*p)+*p, char))
 
 #define ckWARN(w)              Perl_ckwarn(aTHX_ packWARN(w))
 #define ckWARN2(w1,w2)         Perl_ckwarn(aTHX_ packWARN2(w1,w2))