QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-01 11:30:37 +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

18
source/utilities/QB45BIN.bas
View file

@ -944,7 +944,7 @@ FUNCTION DelimitParseRule$ (ParseRule AS STRING, DefaultRuleID AS STRING)
RuleEnd = LEN(ParseRule) + 1
DO
BraceOffset = INSTR(RuleOffset, ParseRule, "{")
IF BraceOffset = 0 THEN BraceOffset = RuleEnd
@ -1376,10 +1376,10 @@ FUNCTION FindRuleDelimiter% (ParseRule AS STRING)
RuleEnd = LEN(ParseRule) + 1
DO WHILE RuleOffset < RuleEnd
BraceOffset = INSTR(RuleOffset, ParseRule, "{")
PipeOffset = INSTR(RuleOffset, ParseRule, "|")
IF BraceOffset = 0 OR PipeOffset <= BraceOffset THEN EXIT DO
RuleOffset = INSTR(BraceOffset + 1, ParseRule, "}")
@ -1421,7 +1421,7 @@ FUNCTION GetHashedSymbol (ParseRuleSymbol AS STRING)
GetHashedSymbol% = SymbolID%
EXIT FUNCTION
END IF
Hash = HashPJW(SymbolID$)
LookupSymbol = "[" + SymbolID$ + "]"
@ -1492,9 +1492,9 @@ FUNCTION GetID$ (SymTblOffset AS INTEGER)
SymbolFlags = PEEK(Symbol& + 2)
IF SymbolFlags AND 2 THEN
' Short line numbers are stored as integers.
NumericID& = PEEK(Symbol& + 4) OR PEEK(Symbol& + 5) * &H100&
GetID$ = LTRIM$(STR$(NumericID&))
ELSE
@ -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)
@ -2307,7 +2307,7 @@ SUB ProcessProcDefType
IP = IP - 1
EXIT DO
END IF
IF NOT ReadToken THEN EXIT DO
UnwantedReturnValue$ = SubstTagDEFxxx(ProcDefType())
@ -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