From a9dec3fe491e66dff58a95299a532ad9c6d08439 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sun, 9 Nov 2014 23:53:42 -0800 Subject: =?UTF-8?q?Don=E2=80=99t=20allow=20OPpTARGET=5FMY=20with=20integer?= =?UTF-8?q?=20negation?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit $ ./perl -Ilib -le 'use integer; my $a = "fake"; $a = -$a; print "[$a]"' [--] As of 1c2b3fd6f1, negation under ‘use integer’ can do string negation, which modifies the return value before reading the argument. So, like regular non-integer negation, it must forego this optimisation. --- regen/opcodes | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'regen/opcodes') diff --git a/regen/opcodes b/regen/opcodes index 2a0430dc0e..d6063a4bf9 100644 --- a/regen/opcodes +++ b/regen/opcodes @@ -166,7 +166,7 @@ bit_xor bitwise xor (^) ck_bitop fst2 S S bit_or bitwise or (|) ck_bitop fst2 S S negate negation (-) ck_null Ifst1 S -i_negate integer negation (-) ck_null ifsT1 S +i_negate integer negation (-) ck_null ifst1 S not not ck_null ifs1 S complement 1's complement (~) ck_bitop fst1 S -- cgit v1.2.1