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

Author: jquelin
Date: Fri Jan  9 04:23:33 2009
New Revision: 35293

Modified:
   trunk/languages/befunge/debug.pir

Log:
adding breakpoint implemented


Modified: trunk/languages/befunge/debug.pir
==============================================================================
--- trunk/languages/befunge/debug.pir	(original)
+++ trunk/languages/befunge/debug.pir	Fri Jan  9 04:23:33 2009
@@ -204,7 +204,10 @@
     goto DEBUG__INTERACT__LOOP
 
   DEBUG__INTERACT__BREAK:
-    _debug__breakpoint_add()
+    $S1 = substr $S0, 6, -1
+    $P0 = get_global "breakpoints"
+    $P0[$S1] = 1
+    set_global "breakpoints", $P0
     goto DEBUG__INTERACT__LOOP
     
   DEBUG__INTERACT__CONTINUE:

• [svn:parrot] r35293 - trunk/languages/befunge by jquelin