Retract #20385.
Jarkko Hietaniemi [Thu, 31 Jul 2003 20:20:28 +0000 (20:20 +0000)]
p4raw-id: //depot/perl@20390

ext/ByteLoader/bytecode.h

index 8ef6d38..bd62b28 100644 (file)
@@ -172,8 +172,10 @@ typedef char *pvindex;
 
 #define BSET_newsv(sv, arg)                            \
        STMT_START {                                    \
-           sv = NEWSV(0,0));                           \
-           SvUPGRADE(sv, (arg));                       \
+           sv = (arg == SVt_PVAV ? (SV*)newAV() :      \
+                 arg == SVt_PVHV ? (SV*)newHV() :      \
+                 NEWSV(666,0));                        \
+           SvUPGRADE(sv, arg);                         \
        } STMT_END
 #define BSET_newsvx(sv, arg) STMT_START {              \
            BSET_newsv(sv, arg &  SVTYPEMASK);          \