This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix C< hex('80') * 0x1000000 >
authorChip Salzenberg <chip@perl.com>
Fri, 18 Apr 1997 14:42:33 +0000 (02:42 +1200)
committerChip Salzenberg <chip@atlantic.net>
Tue, 29 Apr 1997 12:00:00 +0000 (00:00 +1200)
opcode.pl

index 6fed2f8..158b70e 100755 (executable)
--- 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?
 
 log            log                     ck_fun          fstu    S?
 sqrt           sqrt                    ck_fun          fstu    S?
 
+# Lowbrow math.
+
 int            int                     ck_fun          fstu    S?
 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.
 abs            abs                     ck_fun          fstu    S?
 
 # String stuff.