This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Restore modification in warnings.h from change 28662 by backporting it
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 7 Aug 2006 09:23:35 +0000 (09:23 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 7 Aug 2006 09:23:35 +0000 (09:23 +0000)
to warnings.pl

p4raw-id: //depot/perl@28666

warnings.h
warnings.pl

index 423a21a..9c84c25 100644 (file)
@@ -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))
index 0cb5bbd..8d89134 100644 (file)
@@ -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))