summaryrefslogtreecommitdiff
path: root/ext/ByteLoader
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2002-05-07 23:42:42 +0000
committerGurusamy Sarathy <gsar@cpan.org>2002-05-07 23:42:42 +0000
commit6e21dc912fff1c74f60032b406b7b96bd0c3ee86 (patch)
tree42fe393a335e7d83f20b810c752ed094142982f7 /ext/ByteLoader
parent22a65f1e060cc583560af22c8de3f5ccad3c0161 (diff)
downloadperl-6e21dc912fff1c74f60032b406b7b96bd0c3ee86.tar.gz
fixes for various warnings identified by Visual C++
p4raw-id: //depot/perl@16460
Diffstat (limited to 'ext/ByteLoader')
-rw-r--r--ext/ByteLoader/bytecode.h2
-rw-r--r--ext/ByteLoader/byterun.c2
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h
index be5fddd0c6..1c94b66246 100644
--- a/ext/ByteLoader/bytecode.h
+++ b/ext/ByteLoader/bytecode.h
@@ -197,7 +197,7 @@ typedef IV IV64;
av_push(PL_beginav, cv); \
call_list(oldscope, PL_beginav); \
PL_curcop = &PL_compiling; \
- PL_compiling.op_private = PL_hints; \
+ PL_compiling.op_private = (U8)(PL_hints & HINT_PRIVATE_MASK);\
LEAVE; \
} STMT_END
#define BSET_push_init(ary,cv) \
diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c
index 3d680cdb06..ee06b1c8fa 100644
--- a/ext/ByteLoader/byterun.c
+++ b/ext/ByteLoader/byterun.c
@@ -163,7 +163,7 @@ byterun(pTHX_ register struct byteloader_state *bstate)
}
case INSN_SV_UPGRADE: /* 14 */
{
- char arg;
+ U8 arg;
BGET_U8(arg);
BSET_sv_upgrade(bstate->bs_sv, arg);
break;