From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 7 Aug 2006 08:23:13 +0000 (+0000)
Subject: Regenerate files after previous change
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b653e84dd03a97291397f71172f609d22310dffc;p=p5sagit%2Fp5-mst-13.2.git

Regenerate files after previous change

p4raw-id: //depot/perl@28663
---

diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c
index c156bf0..2b7296a 100644
--- a/ext/ByteLoader/byterun.c
+++ b/ext/ByteLoader/byterun.c
@@ -145,7 +145,7 @@ byterun(pTHX_ register struct byteloader_state *bstate)
 	    {
 		U32 arg;
 		BGET_U32(arg);
-		BSET_newsvx(bstate->bs_sv, (svtype)arg);
+		BSET_newsvx(bstate->bs_sv, arg);
 		break;
 	    }
 	  case INSN_NEWOP:		/* 11 */
diff --git a/warnings.h b/warnings.h
index 9c84c25..423a21a 100644
--- 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)		\
-    (STRLEN*)(specialWARN(p) ? (p)	\
-    : CopyD(p, PerlMemShared_malloc(sizeof(*p)+*p), sizeof(*p)+*p, char))
+    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))