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

Improves binary QuickBASIC 4.5 converter.

Browse source 
- Instead of aborting upon finding a bad token, proceed with processing;
- Adds space after line numbers.
This commit is contained in:
FellippeHeitor 2020-07-30 20:56:08 -03:00
parent 6cf15e6f73
commit 07ca4e9dab
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
source/utilities/QB45BIN.bas
View file

@ -1599,7 +1599,7 @@ FUNCTION GetTaggedItem$ (TagTxt AS STRING, DP AS INTEGER)
CASE "int": SubstTxt = FetchLiteralINT(DP, 10)
CASE "int&h": SubstTxt = FetchLiteralINT(DP, 16)
CASE "int&o": SubstTxt = FetchLiteralINT(DP, 8)
CASE "label": SubstTxt = FetchID(DP): IF NOT IsLineNumber(SubstTxt) THEN SubstTxt = SubstTxt + ":"
CASE "label": SubstTxt = FetchID(DP): IF IsLineNumber(SubstTxt) THEN SubstTxt = SubstTxt + " " ELSE SubstTxt = SubstTxt + ":"
CASE "lng": SubstTxt = FetchLiteralLNG(DP, 10)
CASE "lng&h": SubstTxt = FetchLiteralLNG(DP, 16)
@ -2682,7 +2682,7 @@ FUNCTION ReadToken
'----------------------------------------------------------------------------
IF PCODE < LBOUND(ParseRules) OR PCODE > UBOUND(ParseRules) THEN
IP = IP + 1
PRINT "Bad token found.": SYSTEM 1 'ERROR QBErrBadToken
'PRINT "Bad token found.": SYSTEM 1 'ERROR QBErrBadToken
PCODE = 0: HPARAM = 0: TOKEN = MKI$(0)
EXIT FUNCTION
END IF