Author: jquelin
Date: Fri Jan 9 04:30:11 2009
New Revision: 35294
Modified:
trunk/languages/befunge/Changes
trunk/languages/befunge/debug.pir
Log:
fix col breakpoint checking
Modified: trunk/languages/befunge/Changes
==============================================================================
--- trunk/languages/befunge/Changes (original)
+++ trunk/languages/befunge/Changes Fri Jan 9 04:30:11 2009
@@ -2,6 +2,9 @@
Revision history for a Befunge interpreter written for Parrot.
+0.3.0
+ Ported to latest parrot.
+
0.2.2 Tue May 30 20:59:09 CEST 2005
Use standard PMCs instead of Perl* PMCs
Modified: trunk/languages/befunge/debug.pir
==============================================================================
--- trunk/languages/befunge/debug.pir (original)
+++ trunk/languages/befunge/debug.pir Fri Jan 9 04:30:11 2009
@@ -211,7 +211,10 @@
goto DEBUG__INTERACT__LOOP
DEBUG__INTERACT__CONTINUE:
- goto DEBUG__INTERACT__LOOP
+ $P0 = get_global "step"
+ $P0 = 0
+ set_global "step", $P0
+ goto DEBUG__INTERACT__END
DEBUG__INTERACT__DELETE:
_debug__breakpoint_del()
@@ -321,7 +324,7 @@
$S1 = x
concat $S0, $S1
$I0 = exists breakpoints[$S0]
- if $I0 == 0 goto DEBUG__CHECK_BREAKPOINT__COL
+ if $I0 == 0 goto DEBUG__CHECK_BREAKPOINT__END
_debug__interact()
# fallback
#goto DEBUG__CHECK_BREAKPOINT__END
