QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-01 09:10:37 +00:00
Code Releases Wiki Activity

Prevents CONST errors with string functions.

Browse source 
CHR$ et al are not allowed in CONSTS. That's explicit now.
This commit is contained in:
Fellippe Heitor 2021-05-21 21:02:20 -03:00
parent b6705f2880
commit 9d20796505
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
source/qb64.bas
View file

@ -2124,6 +2124,9 @@ DO
e$ = lineformat(temp1$) 'retrieve parseable format
ELSE
IF temp1$ = "ERROR - Division By Zero" THEN a$ = temp1$: GOTO errmes
IF INSTR(temp1$, "Improper operations") THEN
a$ = "Invalid CONST expression.14": GOTO errmes
END IF
END IF
'Proceed as usual
@ -23993,7 +23996,6 @@ SUB Set_OrderOfOperations
i = i + 1: OName(i) = "_CSC": PL(i) = 10
i = i + 1: OName(i) = "_COT": PL(i) = 10
i = i + 1: OName(i) = "ASC": PL(i) = 10
i = i + 1: OName(i) = "CHR$": PL(i) = 10
i = i + 1: OName(i) = "C_RG": PL(i) = 10 '_RGB32 converted
i = i + 1: OName(i) = "C_RA": PL(i) = 10 '_RGBA32 converted
i = i + 1: OName(i) = "_RGB": PL(i) = 10