diff options
| author | Jan Dubois <jand@activestate.com> | 2008-02-14 03:24:01 -0800 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2009-03-25 22:11:33 +0000 |
| commit | 8b7af4fac5646e1d56a319f31b394d8493a2fd08 (patch) | |
| tree | f9ec4ba145e15ec40ecd817ecc70cad7b6dafb60 /op.c | |
| parent | 06ef06a448907e1a8bf56f473830c79d3cb9af97 (diff) | |
| download | perl-8b7af4fac5646e1d56a319f31b394d8493a2fd08.tar.gz | |
Silence compiler warnings on Win32/VC6
Subject: RE: Bit-fields patch causes warnings on Win32/VC6
From: "Jan Dubois" <jand@activestate.com>
Message-ID: <002f01c86f3f$27e23ca0$77a6b5e0$@com>
p4raw-id: //depot/perl@33315
(cherry-picked from commit 0053d415f506c0bd87de287f5b4d68652d94b7b1)
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -555,7 +555,7 @@ Perl_op_clear(pTHX_ OP *o) switch (o->op_type) { case OP_NULL: /* Was holding old type, if any. */ if (PL_madskills && o->op_targ != OP_NULL) { - o->op_type = o->op_targ; + o->op_type = (optype)o->op_targ; o->op_targ = 0; goto retry; } @@ -5086,7 +5086,7 @@ S_newGIVWHENOP(pTHX_ OP *cond, OP *block, PERL_ARGS_ASSERT_NEWGIVWHENOP; NewOp(1101, enterop, 1, LOGOP); - enterop->op_type = enter_opcode; + enterop->op_type = (optype)enter_opcode; enterop->op_ppaddr = PL_ppaddr[enter_opcode]; enterop->op_flags = (U8) OPf_KIDS; enterop->op_targ = ((entertarg == NOT_IN_PAD) ? 0 : entertarg); |