develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
jquelin
Date:
January 6, 2009 04:19
Subject:
[svn:parrot] r35022 - trunk/languages/befunge
Message ID:
20090106121950.6E11DCB9F9@x12.develooper.com
Author: jquelin
Date: Tue Jan  6 04:19:49 2009
New Revision: 35022

Modified:
   trunk/languages/befunge/befunge.pir

Log:
finish parsing: debug information

nothing done when flag -d detected, though. this requires debug.pasm to
be sanitized



Modified: trunk/languages/befunge/befunge.pir
==============================================================================
--- trunk/languages/befunge/befunge.pir	(original)
+++ trunk/languages/befunge/befunge.pir	Tue Jan  6 04:19:49 2009
@@ -31,17 +31,13 @@
     arg  = argv[i]
     char = substr arg, 0, 1
     ne char, "-",  ARGV_DONE
-    #eq arg,  "-d", ARGV_DEBUG
+    eq arg,  "-d", ARGV_DEBUG
     branch ARGV_NEXT
 
-=pod
-
 ARGV_DEBUG:
-        inc I5
-        bsr DEBUG_INITIALIZE    # initialize P3
-        branch ARGV_NEXT
-
-=cut
+    inc i
+    #TODO bsr DEBUG_INITIALIZE    # initialize P3
+    branch ARGV_NEXT
 
 ARGV_DONE:
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About