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

Prevent errors with literal string Consts

Browse source
This commit is contained in:
Fellippe Heitor 2021-05-27 20:08:45 -03:00
parent 5e05664896
commit 9d08c78dfc
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
source/qb64.bas
View file

@ -2119,6 +2119,8 @@ DO
NEXT
'intercept current expression and pass it through Evaluate_Expression$
'(unless it is a literal string)
IF LEFT$(readable_e$, 1) <> CHR$(34) THEN
temp1$ = _TRIM$(Evaluate_Expression$(readable_e$))
IF LEFT$(temp1$, 5) <> "ERROR" AND e$ <> temp1$ THEN
e$ = lineformat(temp1$) 'retrieve parseable format
@ -2128,6 +2130,7 @@ DO
a$ = "Invalid CONST expression.14": GOTO errmes
END IF
END IF
END IF
'Proceed as usual
e$ = fixoperationorder(e$)