cvsuser 03/06/27 12:27:40
Modified: languages/BASIC/compiler COMP_parsefuncs.pm testsuite.pl
Log:
Newline printing now doesn't call DISPLAY, but just resets the tab counter
Revision Changes Path
1.19 +10 -1 parrot/languages/BASIC/compiler/COMP_parsefuncs.pm
Index: COMP_parsefuncs.pm
===================================================================
RCS file: /cvs/public/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -w -r1.18 -r1.19
--- COMP_parsefuncs.pm 27 Jun 2003 19:12:49 -0000 1.18
+++ COMP_parsefuncs.pm 27 Jun 2003 19:27:40 -0000 1.19
@@ -409,11 +409,20 @@
print CODE qq{\tset I1, P17["$fd"]\n};
print CODE qq{\tbsr PRINTLINE\n};
} else {
+ if ($string ne "\\n") {
push @{$code{$seg}->{code}}, <<PRINT;
.arg "$string"
.arg 1
call _BUILTIN_DISPLAY
PRINT
+ } else {
+ push @{$code{$seg}->{code}}, <<PRINT;
+ find_global \$P0, "PRINTCOL"
+ \$P0["value"]=0
+ store_global "PRINTCOL", \$P0
+ print "\\n"
+PRINT
+ }
}
}
1.12 +0 -1 parrot/languages/BASIC/compiler/testsuite.pl
Index: testsuite.pl
===================================================================
RCS file: /cvs/public/parrot/languages/BASIC/compiler/testsuite.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -w -r1.11 -r1.12
--- testsuite.pl 27 Jun 2003 19:12:49 -0000 1.11
+++ testsuite.pl 27 Jun 2003 19:27:40 -0000 1.12
@@ -47,7 +47,6 @@
c$="WRONG"
call mysub()
-STOPPLEASE
' Passing string arrays, expect 99 and "Hello"
function foo(i, thing$())
print i
