QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-05 22:50:23 +00:00
Code Issues Releases Wiki Activity

Fixes CONST failing in CamelCase mode with logical operators.

Browse source
This commit is contained in:
Fellippe Heitor 2021-02-05 00:57:05 -03:00
parent 5bddf1699a
commit 8d78700c11
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
source/qb64.bas
View file

@ -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