From: Nikola Knezevic <indy@tesla.rcub.bg.ac.yu>
Date: Tue, 15 Jan 2002 21:23:30 +0000 (+0100)
Subject: No more warnings from Opcode.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=35eebb44e2b4ad864a353b33e6210003e55cf91c;p=p5sagit%2Fp5-mst-13.2.git

No more warnings from Opcode.c
Message-ID: <595405346.20020115212330@tesla.rcub.bg.ac.yu>

p4raw-id: //depot/perl@14305
---

diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs
index 8026964..6ad7107 100644
--- a/ext/Opcode/Opcode.xs
+++ b/ext/Opcode/Opcode.xs
@@ -62,7 +62,7 @@ op_names_init(pTHX)
     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 */