mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-03 11:11:20 +00:00
Improves binary QuickBASIC 4.5 converter.
- Instead of aborting upon finding a bad token, proceed with processing; - Adds space after line numbers.
This commit is contained in:
parent
6cf15e6f73
commit
07ca4e9dab
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue