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

Merge pull request #123 from QB64Team/fix-const-camelcase

Browse source 
Fixes CONST failing in CamelCase mode with logical operators.
This commit is contained in:
Fellippe Heitor 2021-02-05 00:58:00 -03:00 committed by GitHub
parent 5bddf1699a 8d78700c11
commit 64d149b311
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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
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