# New Ticket Created by "Lee Duhem"
# Please include the string: [perl #41154]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=41154 >
This patch makes code struct and output of examples/pasm/stack.pasm
more consistent, for example:
before patch:
$ ./parrot examples/pasm/stack.pasm
87654321098765432100123456789012345678998765432109876543210
after patch:
$ ./parrot examples/pasm/stack.pasm
9876543210 9876543210 0123456789 0123456789 9876543210 9876543210
$ diffstat /tmp/stack.patch
stack.pasm | 19 ++++++++++++++++++-
1 files changed, 18 insertions(+), 1 deletion(-)
Index: examples/pasm/stack.pasm
===================================================================
--- examples/pasm/stack.pasm (revision 16272)
+++ examples/pasm/stack.pasm (working copy)
@@ -35,6 +35,7 @@
save I1
set I1, 9
save I1
+
set I1, 0
save I1
set I1, 1
@@ -54,6 +55,8 @@
set I1, 8
save I1
set I1, 9
+ save I1
+
restore I1
print I1
restore I1
@@ -74,6 +77,8 @@
print I1
restore I1
print I1
+ print " "
+
restore I1
print I1
restore I1
@@ -92,6 +97,10 @@
print I1
restore I1
print I1
+ restore I1
+ print I1
+ print " "
+
set I1, 0
print I1
save I1
@@ -122,6 +131,8 @@
set I1, 9
print I1
save I1
+ print " "
+
set I1, 0
print I1
save I1
@@ -151,7 +162,9 @@
save I1
set I1, 9
print I1
- print I1
+ save I1
+ print " "
+
restore I1
print I1
restore I1
@@ -172,6 +185,8 @@
print I1
restore I1
print I1
+ print " "
+
restore I1
print I1
restore I1
@@ -190,5 +205,7 @@
print I1
restore I1
print I1
+ restore I1
+ print I1
print "\n"
end
