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

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

17
source/qb64.bas
View file

@ -2119,13 +2119,16 @@ DO
NEXT
'intercept current expression and pass it through Evaluate_Expression$
temp1$ = _TRIM$(Evaluate_Expression$(readable_e$))
IF LEFT$(temp1$, 5) <> "ERROR" AND e$ <> temp1$ THEN
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
'(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
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
END IF