This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Regenerate files after previous change
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 7 Aug 2006 08:23:13 +0000 (08:23 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 7 Aug 2006 08:23:13 +0000 (08:23 +0000)
p4raw-id: //depot/perl@28663

ext/ByteLoader/byterun.c
warnings.h

index c156bf0..2b7296a 100644 (file)
@@ -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 */
index 9c84c25..423a21a 100644 (file)
@@ -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))