cvsuser 03/03/03 09:02:03
Modified: . MANIFEST
examples/assembly coroutine.pasm lexical.pasm stack.pasm
sub.pasm
Removed: examples/assembly call.pasm
Log:
examples cleanup
Revision Changes Path
1.320 +0 -1 parrot/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /cvs/public/parrot/MANIFEST,v
retrieving revision 1.319
retrieving revision 1.320
diff -u -w -r1.319 -r1.320
--- MANIFEST 28 Feb 2003 14:21:38 -0000 1.319
+++ MANIFEST 3 Mar 2003 17:01:54 -0000 1.320
@@ -172,7 +172,6 @@
encodings/utf8.c
examples/assembly/Makefile
examples/assembly/bsr.pasm
-examples/assembly/call.pasm
examples/assembly/cat.pasm
examples/assembly/coroutine.pasm
examples/assembly/euclid.pasm
1.3 +12 -12 parrot/examples/assembly/coroutine.pasm
Index: coroutine.pasm
===================================================================
RCS file: /cvs/public/parrot/examples/assembly/coroutine.pasm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- coroutine.pasm 19 Jul 2002 02:35:05 -0000 1.2
+++ coroutine.pasm 3 Mar 2003 17:02:03 -0000 1.3
@@ -10,22 +10,22 @@
set P0, I0
# Calling convention says P0 will contain the sub so..
print "Calling 1st co-routine\n"
-callco
-callco
-callco
+invoke
+invoke
+invoke
restore P0
print "Calling 2nd co-routine\n"
-callco
-callco
-callco
+invoke
+invoke
+invoke
end
# A coroutine
MYCOROUTINE:
print "Entry\n"
-yield
+invoke
print "Resumed\n"
-yield
+invoke
print "Done\n"
-ret
+invoke
1.2 +12 -7 parrot/examples/assembly/lexical.pasm
Index: lexical.pasm
===================================================================
RCS file: /cvs/public/parrot/examples/assembly/lexical.pasm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- lexical.pasm 31 Jul 2002 02:48:49 -0000 1.1
+++ lexical.pasm 3 Mar 2003 17:02:03 -0000 1.2
@@ -3,7 +3,7 @@
#
# A program to demonstrate lexical scopes.
#
-# $Id: lexical.pasm,v 1.1 2002/07/31 02:48:49 mrjoltcola Exp $
+# $Id: lexical.pasm,v 1.2 2003/03/03 17:02:03 leo Exp $
#
new P0, .PerlInt
@@ -14,15 +14,15 @@
set P1, 1
# outer most lexical scope
-new_pad
-store_lex P0, "a"
+new_pad 0
+store_lex 0, "a", P0
find_lex P3, "a"
print P3 # prints 0
print "\n"
-new_pad
-store_lex P1, "b"
-store_lex P1, "a"
+new_pad 1
+store_lex 1, "b", P1
+store_lex 1, "a", P1
find_lex P3, "a"
print P3 # prints 1
@@ -30,6 +30,11 @@
find_lex P3, "b"
print P3 # prints 1
+print "\n"
+
+# get outer a
+find_lex P3, 0, "a"
+print P3 # prints 0
print "\n"
pop_pad
1.2 +176 -176 parrot/examples/assembly/stack.pasm
Index: stack.pasm
===================================================================
RCS file: /cvs/public/parrot/examples/assembly/stack.pasm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- stack.pasm 15 Oct 2001 21:37:07 -0000 1.1
+++ stack.pasm 3 Mar 2003 17:02:03 -0000 1.2
@@ -5,183 +5,183 @@
# This program is free software. It is subject to the same
# license as The Parrot Interpreter.
#
-# $Id: stack.pasm,v 1.1 2001/10/15 21:37:07 gregor Exp $
+# $Id: stack.pasm,v 1.2 2003/03/03 17:02:03 leo Exp $
#
- set_i_ic I1, 0
- save_i I1
- set_i_ic I1, 1
- save_i I1
- set_i_ic I1, 2
- save_i I1
- set_i_ic I1, 3
- save_i I1
- set_i_ic I1, 4
- save_i I1
- set_i_ic I1, 5
- save_i I1
- set_i_ic I1, 6
- save_i I1
- set_i_ic I1, 7
- save_i I1
- set_i_ic I1, 8
- save_i I1
- set_i_ic I1, 9
- save_i I1
- set_i_ic I1, 0
- save_i I1
- set_i_ic I1, 1
- save_i I1
- set_i_ic I1, 2
- save_i I1
- set_i_ic I1, 3
- save_i I1
- set_i_ic I1, 4
- save_i I1
- set_i_ic I1, 5
- save_i I1
- set_i_ic I1, 6
- save_i I1
- set_i_ic I1, 7
- save_i I1
- set_i_ic I1, 8
- save_i I1
- set_i_ic I1, 9
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- set_i_ic I1, 0
- print_i I1
- save_i I1
- set_i_ic I1, 1
- print_i I1
- save_i I1
- set_i_ic I1, 2
- print_i I1
- save_i I1
- set_i_ic I1, 3
- print_i I1
- save_i I1
- set_i_ic I1, 4
- print_i I1
- save_i I1
- set_i_ic I1, 5
- print_i I1
- save_i I1
- set_i_ic I1, 6
- print_i I1
- save_i I1
- set_i_ic I1, 7
- print_i I1
- save_i I1
- set_i_ic I1, 8
- print_i I1
- save_i I1
- set_i_ic I1, 9
- print_i I1
- save_i I1
- set_i_ic I1, 0
- print_i I1
- save_i I1
- set_i_ic I1, 1
- print_i I1
- save_i I1
- set_i_ic I1, 2
- print_i I1
- save_i I1
- set_i_ic I1, 3
- print_i I1
- save_i I1
- set_i_ic I1, 4
- print_i I1
- save_i I1
- set_i_ic I1, 5
- print_i I1
- save_i I1
- set_i_ic I1, 6
- print_i I1
- save_i I1
- set_i_ic I1, 7
- print_i I1
- save_i I1
- set_i_ic I1, 8
- print_i I1
- save_i I1
- set_i_ic I1, 9
- print_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
- restore_i I1
- print_i I1
+ set I1, 0
+ save I1
+ set I1, 1
+ save I1
+ set I1, 2
+ save I1
+ set I1, 3
+ save I1
+ set I1, 4
+ save I1
+ set I1, 5
+ save I1
+ set I1, 6
+ save I1
+ set I1, 7
+ save I1
+ set I1, 8
+ save I1
+ set I1, 9
+ save I1
+ set I1, 0
+ save I1
+ set I1, 1
+ save I1
+ set I1, 2
+ save I1
+ set I1, 3
+ save I1
+ set I1, 4
+ save I1
+ set I1, 5
+ save I1
+ set I1, 6
+ save I1
+ set I1, 7
+ save I1
+ set I1, 8
+ save I1
+ set I1, 9
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ set I1, 0
+ print I1
+ save I1
+ set I1, 1
+ print I1
+ save I1
+ set I1, 2
+ print I1
+ save I1
+ set I1, 3
+ print I1
+ save I1
+ set I1, 4
+ print I1
+ save I1
+ set I1, 5
+ print I1
+ save I1
+ set I1, 6
+ print I1
+ save I1
+ set I1, 7
+ print I1
+ save I1
+ set I1, 8
+ print I1
+ save I1
+ set I1, 9
+ print I1
+ save I1
+ set I1, 0
+ print I1
+ save I1
+ set I1, 1
+ print I1
+ save I1
+ set I1, 2
+ print I1
+ save I1
+ set I1, 3
+ print I1
+ save I1
+ set I1, 4
+ print I1
+ save I1
+ set I1, 5
+ print I1
+ save I1
+ set I1, 6
+ print I1
+ save I1
+ set I1, 7
+ print I1
+ save I1
+ set I1, 8
+ print I1
+ save I1
+ set I1, 9
+ print I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
+ restore I1
+ print I1
end
1.4 +4 -4 parrot/examples/assembly/sub.pasm
Index: sub.pasm
===================================================================
RCS file: /cvs/public/parrot/examples/assembly/sub.pasm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- sub.pasm 19 Jul 2002 02:32:25 -0000 1.3
+++ sub.pasm 3 Mar 2003 17:02:03 -0000 1.4
@@ -9,10 +9,10 @@
new P0, .Sub
set P0, I0
# Calling convention says P0 will contain the sub
-call
+invoke
restore P0
# Call second one
-call
+invoke
end
# A subroutine
