diff options
| author | Steve Peters <steve@fisharerojo.org> | 2006-08-16 13:11:15 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-08-16 13:11:15 +0000 |
| commit | 87d46f97c572fcb76df491a3f99f2a7106164f04 (patch) | |
| tree | 96e36fd06c388250302dcbfeb11bc3513d60bd9c /ext/ByteLoader | |
| parent | 383f9357ddd20f0f467e21ca2ed7c8bc462aa3b6 (diff) | |
| download | perl-87d46f97c572fcb76df491a3f99f2a7106164f04.tar.gz | |
Additional changes to get C++ a little closer to a clean compile
of Perl.
p4raw-id: //depot/perl@28729
Diffstat (limited to 'ext/ByteLoader')
| -rw-r--r-- | ext/ByteLoader/bytecode.h | 2 | ||||
| -rw-r--r-- | ext/ByteLoader/byterun.c | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h index fd2c4f6768..160ae613de 100644 --- a/ext/ByteLoader/bytecode.h +++ b/ext/ByteLoader/bytecode.h @@ -210,7 +210,7 @@ typedef char *pvindex; SvUPGRADE(sv, (arg)); \ } #define BSET_newsvx(sv, arg) STMT_START { \ - BSET_newsv(sv, arg & SVTYPEMASK); \ + BSET_newsv(sv, (svtype)(arg & SVTYPEMASK)); \ SvFLAGS(sv) = arg; \ BSET_OBJ_STOREX(sv); \ } STMT_END diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c index 9305723750..0c491c0013 100644 --- a/ext/ByteLoader/byterun.c +++ b/ext/ByteLoader/byterun.c @@ -136,8 +136,8 @@ byterun(pTHX_ register struct byteloader_state *bstate) } case INSN_NEWSV: /* 8 */ { - U8 arg; - BGET_U8(arg); + svtype arg; + BGET_svtype(arg); BSET_newsv(bstate->bs_sv, arg); break; } @@ -189,8 +189,8 @@ byterun(pTHX_ register struct byteloader_state *bstate) } case INSN_SV_UPGRADE: /* 17 */ { - U8 arg; - BGET_U8(arg); + svtype arg; + BGET_svtype(arg); BSET_sv_upgrade(bstate->bs_sv, arg); break; } |