Disallow commas/newlines after SPC/TAB

They aren't that useful, and were broken - acting as if a semicolon followed.
Now only semicolons are allowed, but that could be reexamined in future releases.
There is currently no implementation support for them though, so the code would have to be complicated a little.

Author: countingpine

changelog.txt

@@ -56,6 +56,7 @@ Version 1.01.0
 - #723: LINE clipping now doesn't affect which (unclipped) pixels are plotted, eliminating rounding differences and correctly preserving the position of the style bits
 - BLOAD now gives an error if it encounters a BMP file with an unknown header size
 - BLOAD was misreading bitfields in BMP files with undocumented BITMAPV3HEADER format (56-byte headers)
+- PRINT now disallows commas/newlines after SPC/TAB, instead of silently ignoring them
 
 
 Version 1.00.0 (former 0.91.0):

src/compiler/parser-quirk-file.bas

@@ -117,29 +117,26 @@ function cPrintStmt  _
 			issemicolon = TRUE
 		end if
 
+		if( (isspc or istab) and (issemicolon = FALSE) ) then
+			'' only semicolons are supported after SPC()/TAB() (QB editor autocorrected them)
+			errReport( FB_ERRMSG_EXPECTEDSEMICOLON )
+		end if
+
 		'' handle PRINT w/o expressions
 		if( (iscomma = FALSE) and _
 			(issemicolon = FALSE) and _
 			(expr = NULL) ) then
 			exit do
 		end if
 
-		if( isspc ) then
+		if( isspc or istab ) then
 			filexprcopy = astCloneTree( filexpr )
 			if( rtlPrintSPC( filexprcopy, _
 							 expr, _
+							 istab, _
 							 islprint ) = FALSE ) then
 				exit function
 			end if
-
-		elseif( istab ) then
-			filexprcopy = astCloneTree( filexpr )
-			if( rtlPrintTab( filexprcopy, _
-							 expr, _
-							 islprint ) = FALSE ) then
-				exit function
-			end if
-
 		else
 			if( usingexpr = NULL /'or expr = NULL'/ ) then
 			/' (commented check allows multiple consecutive commas/semicolons in USING statements.

src/compiler/rtl-print.bas

@@ -790,11 +790,12 @@ function rtlPrint _
 end function
 
 '':::::
-function rtlPrintSPC _
+function rtlPrintSPCTab _
 	( _
 		byval fileexpr as ASTNODE ptr, _
 		byval expr as ASTNODE ptr, _
-        byval islprint as integer = FALSE _
+		byval istab as integer, _
+		byval islprint as integer = FALSE _
 	) as integer
 
     dim as ASTNODE ptr proc = any
@@ -806,7 +807,11 @@ function rtlPrintSPC _
     end if
 
 	''
-    proc = astNewCALL( PROCLOOKUP( PRINTSPC ) )
+	if( istab ) then
+		proc = astNewCALL( PROCLOOKUP( PRINTSPC ) )
+	else
+		proc = astNewCALL( PROCLOOKUP( PRINTTAB ) )
+	end if
 
     '' byval filenum as integer
     if( astNewARG( proc, fileexpr ) = NULL ) then
@@ -824,41 +829,6 @@ function rtlPrintSPC _
 
 end function
 
-'':::::
-function rtlPrintTab _
-	( _
-		byval fileexpr as ASTNODE ptr, _
-		byval expr as ASTNODE ptr, _
-        byval islprint as integer = FALSE _
-    ) as integer
-
-    dim as ASTNODE ptr proc = any
-
-	function = FALSE
-
-    if islprint then
-    	rtlPrinter_cb( NULL )
-    end if
-
-	''
-    proc = astNewCALL( PROCLOOKUP( PRINTTAB ) )
-
-    '' byval filenum as integer
-    if( astNewARG( proc, fileexpr ) = NULL ) then
- 		exit function
- 	end if
-
-    '' byval newcol as integer
-    if( astNewARG( proc, expr ) = NULL ) then
- 		exit function
- 	end if
-
-    astAdd( proc )
-
-    function = TRUE
-
-end function
-
 '':::::
 function rtlWrite _
 	( _

src/compiler/rtl.bi

@@ -1269,17 +1269,11 @@ declare function rtlPrint _
 		byval islprint as integer = FALSE _
 	) as integer
 
-declare function rtlPrintSPC _
-	( _
-		byval fileexpr as ASTNODE ptr, _
-		byval expr as ASTNODE ptr, _
-		byval islprint as integer = FALSE _
-	) as integer
-
-declare function rtlPrintTab _
+declare function rtlPrintSPCTab _
 	( _
 		byval fileexpr as ASTNODE ptr, _
 		byval expr as ASTNODE ptr, _
+		byval istab as integer, _
 		byval islprint as integer = FALSE _
 	) as integer