[svn:parrot] r35266 - trunk/languages/befunge

[jquelin]

Author: jquelin
Date: Fri Jan  9 02:18:07 2009
New Revision: 35266

Modified:
   trunk/languages/befunge/befunge.pir

Log:
instruction $ implemented (pop stack)


Modified: trunk/languages/befunge/befunge.pir
==============================================================================
--- trunk/languages/befunge/befunge.pir (original)
+++ trunk/languages/befunge/befunge.pir Fri Jan  9 02:18:07 2009
@@ -99,6 +99,7 @@
     
     # stack operations
     if char == ':' goto STACK_DUP
+    if char == '$' goto STACK_POP
 
     # i/o operations
     if char == ',' goto IO_OUTPUT_CHAR
@@ -132,7 +133,7 @@
 
         # Stack operations.
         #eq S0, ":", STACK_DUP
-        eq S0, "$", STACK_POP
+        #eq S0, "$", STACK_POP
         eq S0, "\\", STACK_SWAP
 
         # I/O operations.
@@ -203,6 +204,9 @@
   STACK_DUP:
     stack__duplicate()
     goto MOVE_PC
+  STACK_POP:
+    $I0 = stack__pop()
+    goto MOVE_PC
     
 
     # instruction executed, now move the pc