mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-06 02:20:25 +00:00
Prevent errors with literal string Consts
This commit is contained in:
parent
5e05664896
commit
9d08c78dfc
|
@ -2119,6 +2119,8 @@ DO
|
||||||
NEXT
|
NEXT
|
||||||
|
|
||||||
'intercept current expression and pass it through Evaluate_Expression$
|
'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$))
|
temp1$ = _TRIM$(Evaluate_Expression$(readable_e$))
|
||||||
IF LEFT$(temp1$, 5) <> "ERROR" AND e$ <> temp1$ THEN
|
IF LEFT$(temp1$, 5) <> "ERROR" AND e$ <> temp1$ THEN
|
||||||
e$ = lineformat(temp1$) 'retrieve parseable format
|
e$ = lineformat(temp1$) 'retrieve parseable format
|
||||||
|
@ -2128,6 +2130,7 @@ DO
|
||||||
a$ = "Invalid CONST expression.14": GOTO errmes
|
a$ = "Invalid CONST expression.14": GOTO errmes
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
END IF
|
||||||
|
|
||||||
'Proceed as usual
|
'Proceed as usual
|
||||||
e$ = fixoperationorder(e$)
|
e$ = fixoperationorder(e$)
|
||||||
|
|
Loading…
Reference in a new issue