Author: jquelin
Date: Fri Jan 9 01:22:33 2009
New Revision: 35252
Modified:
trunk/languages/befunge/stack.pir
Log:
new sub stack__push()
Modified: trunk/languages/befunge/stack.pir
==============================================================================
--- trunk/languages/befunge/stack.pir (original)
+++ trunk/languages/befunge/stack.pir Fri Jan 9 01:22:33 2009
@@ -41,6 +41,23 @@
.return($I1)
.end
+
+#
+# stack__push(v)
+#
+# push a value on the stack.
+# befunge stack:
+# before: ...
+# after: ... v
+#
+.sub "stack__push"
+ .param int v
+ $P0 = get_global "stack"
+ push $P0, v
+ set_global "stack", $P0
+.end
+
+
=pod
STACK_POP:
