mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-20 09:15:14 +00:00
Fixes CONST failing in CamelCase mode with logical operators.
This commit is contained in:
parent
5bddf1699a
commit
8d78700c11
|
@ -23297,7 +23297,7 @@ FUNCTION evaluateconst$ (a2$, t AS LONG)
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF o$ = "NOT" THEN
|
IF UCASE$(o$) = "NOT" THEN
|
||||||
IF btype(2) AND ISFLOAT THEN
|
IF btype(2) AND ISFLOAT THEN
|
||||||
r&& = _CV(_FLOAT, block(2))
|
r&& = _CV(_FLOAT, block(2))
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -23325,7 +23325,7 @@ FUNCTION evaluateconst$ (a2$, t AS LONG)
|
||||||
|
|
||||||
'get operator
|
'get operator
|
||||||
IF i >= n THEN Give_Error "Invalid CONST expression.8": EXIT FUNCTION
|
IF i >= n THEN Give_Error "Invalid CONST expression.8": EXIT FUNCTION
|
||||||
o$ = block(i)
|
o$ = UCASE$(block(i))
|
||||||
i = i + 1
|
i = i + 1
|
||||||
IF isoperator(o$) = 0 THEN Give_Error "Invalid CONST expression.9": EXIT FUNCTION
|
IF isoperator(o$) = 0 THEN Give_Error "Invalid CONST expression.9": EXIT FUNCTION
|
||||||
IF i > n THEN Give_Error "Invalid CONST expression.10": EXIT FUNCTION
|
IF i > n THEN Give_Error "Invalid CONST expression.10": EXIT FUNCTION
|
||||||
|
|
Loading…
Reference in a new issue