From: Chip Salzenberg <chip@perl.com>
Date: Fri, 18 Apr 1997 14:42:33 +0000 (+1200)
Subject: Fix C< hex('80') * 0x1000000 >
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cf26c822ca0e58de393c90b3f7a75af4335d0d65;p=p5sagit%2Fp5-mst-13.2.git

Fix C< hex('80') * 0x1000000 >
---

diff --git a/opcode.pl b/opcode.pl
index 6fed2f8..158b70e 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -326,9 +326,11 @@ exp		exp			ck_fun		fstu	S?
 log		log			ck_fun		fstu	S?
 sqrt		sqrt			ck_fun		fstu	S?
 
+# Lowbrow math.
+
 int		int			ck_fun		fstu	S?
-hex		hex			ck_fun		istu	S?
-oct		oct			ck_fun		istu	S?
+hex		hex			ck_fun		fstu	S?
+oct		oct			ck_fun		fstu	S?
 abs		abs			ck_fun		fstu	S?
 
 # String stuff.