Change 14305 by jhi@alpha on 2002/01/17 13:32:56
Subject: [PATCH bleadperl] No more warnings from Opcode.c
From: Nikola Knezevic <[EMAIL PROTECTED]>
Date: Tue, 15 Jan 2002 21:23:30 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/ext/Opcode/Opcode.xs#35 edit
Differences ...
==== //depot/perl/ext/Opcode/Opcode.xs#35 (text) ====
Index: perl/ext/Opcode/Opcode.xs
--- perl/ext/Opcode/Opcode.xs.~1~ Thu Jan 17 06:45:06 2002
+++ perl/ext/Opcode/Opcode.xs Thu Jan 17 06:45:06 2002
@@ -62,7 +62,7 @@
bitmap = SvPV(opset_all, len);
i = len-1; /* deal with last byte specially, see below */
while(i-- > 0)
- bitmap[i] = 0xFF;
+ bitmap[i] = (char)0xFF;
/* Take care to set the right number of bits in the last byte */
bitmap[len-1] = (PL_maxo & 0x07) ? ~(0xFF << (PL_maxo & 0x07)) : 0xFF;
put_op_bitspec(aTHX_ ":all",0, opset_all); /* don't mortalise */
End of Patch.
