fix bogus integerization of pop()'s return value

	Message-Id: <199808160327.XAA05186@aatma.engin.umich.edu>
	Subject: Re: Complex expression does integer arithmetic

p4raw-id: //depot/perl@1810

diff --git a/opcode.h b/opcode.h
index 8f4f00b..37b0516 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -2320,7 +2320,7 @@ EXT U32 opargs[] = {
        0x00002505,     /* anonhash */
        0x02993501,     /* splice */
        0x0002351d,     /* push */
-       0x00003c14,     /* pop */
+       0x00003c04,     /* pop */
        0x00003c04,     /* shift */
        0x0002351d,     /* unshift */
        0x0002d501,     /* sort */

diff --git a/opcode.pl b/opcode.pl
index f2ed795..f9c7503 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -432,7 +432,7 @@ anonhash    anonymous hash          ck_fun          ms@     L
 
 splice         splice                  ck_fun          m@      A S? S? L
 push           push                    ck_fun          imst@   A L
-pop            pop                     ck_shift        si%     A
+pop            pop                     ck_shift        s%      A
 shift          shift                   ck_shift        s%      A
 unshift                unshift                 ck_fun          imst@   A L
 sort           sort                    ck_sort         m@      C? L