diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2002-04-26 00:41:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2002-04-26 00:41:39 +0000 |
| commit | 7c436af33814ce716234caa65f470fe47c2a0efa (patch) | |
| tree | e51dccce04c0b8b80a5b9b4734b273846081317e /ext/Opcode | |
| parent | 530b72baaecf6b4faf758663fc0fded0f4426004 (diff) | |
| download | perl-7c436af33814ce716234caa65f470fe47c2a0efa.tar.gz | |
various signed/unsigned mismatch nits
p4raw-id: //depot/perl@16173
Diffstat (limited to 'ext/Opcode')
| -rw-r--r-- | ext/Opcode/Opcode.xs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs index 6ad7107966..66710edeb7 100644 --- a/ext/Opcode/Opcode.xs +++ b/ext/Opcode/Opcode.xs @@ -151,7 +151,7 @@ verify_opset(pTHX_ SV *opset, int fatal) if (!SvOK(opset)) err = "undefined"; else if (!SvPOK(opset)) err = "wrong type"; - else if (SvCUR(opset) != opset_len) err = "wrong size"; + else if (SvCUR(opset) != (STRLEN)opset_len) err = "wrong size"; if (err && fatal) { croak("Invalid opset: %s", err); } @@ -178,7 +178,7 @@ set_opset_bits(pTHX_ char *bitmap, SV *bitspec, int on, char *opname) else bitmap[offset] &= ~(1 << bit); } - else if (SvPOK(bitspec) && SvCUR(bitspec) == opset_len) { + else if (SvPOK(bitspec) && SvCUR(bitspec) == (STRLEN)opset_len) { STRLEN len; char *specbits = SvPV(bitspec, len); @@ -464,7 +464,7 @@ PPCODE: croak("panic: opcode %d (%s) out of range",myopcode,opname); XPUSHs(sv_2mortal(newSVpv(op_desc[myopcode], 0))); } - else if (SvPOK(bitspec) && SvCUR(bitspec) == opset_len) { + else if (SvPOK(bitspec) && SvCUR(bitspec) == (STRLEN)opset_len) { int b, j; STRLEN n_a; char *bitmap = SvPV(bitspec,n_a); |