QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-03 11:11:20 +00:00
Code Issues Releases Wiki Activity

Fixes regression introduced with 67af468

Browse source
This commit is contained in:
FellippeHeitor 2019-01-13 16:35:59 -02:00
parent c09e27839a
commit 641c9d418a
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
source/qb64.bas
View file

@ -22444,7 +22444,11 @@ SUB xprint (a$, ca$, n)
IF puformat$ = "" THEN Give_Error "Expected PRINT USING formatstring ; ...": EXIT SUB
IF i = n THEN Give_Error "Expected PRINT USING formatstring ; ...": EXIT SUB
'create build string
IF TQBSset = 0 THEN PRINT #12, "tqbs=qbs_new(0,0);"
IF TQBSset = 0 THEN
PRINT #12, "tqbs=qbs_new(0,0);"
ELSE
PRINT #12, "qbs_set(tqbs,qbs_new_txt_len(" + CHR$(34) + CHR$(34) + ",0));"
END IF
'set format start/index variable
PRINT #12, "tmp_long=0;" 'scan format from beginning