mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-03 08:51:22 +00:00
Merge pull request #123 from QB64Team/fix-const-camelcase
Fixes CONST failing in CamelCase mode with logical operators.
This commit is contained in:
commit
64d149b311
|
@ -23297,7 +23297,7 @@ FUNCTION evaluateconst$ (a2$, t AS LONG)
|
|||
EXIT FUNCTION
|
||||
END IF
|
||||
|
||||
IF o$ = "NOT" THEN
|
||||
IF UCASE$(o$) = "NOT" THEN
|
||||
IF btype(2) AND ISFLOAT THEN
|
||||
r&& = _CV(_FLOAT, block(2))
|
||||
ELSE
|
||||
|
@ -23325,7 +23325,7 @@ FUNCTION evaluateconst$ (a2$, t AS LONG)
|
|||
|
||||
'get operator
|
||||
IF i >= n THEN Give_Error "Invalid CONST expression.8": EXIT FUNCTION
|
||||
o$ = block(i)
|
||||
o$ = UCASE$(block(i))
|
||||
i = i + 1
|
||||
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
|
||||
|
|
Loading…
Reference in a new issue