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

Fix to Mod and \ in CONST

Browse source 
As per the sample code below:

Const a = 5 Mod 2.8
Const b = 5 \ 2.8
Print a; "="; 5 Mod 2.8
Print b; "="; 5 \ 2.8

Old output was wrong.  Patch should make the CONST values the same as what QB64 normally generates for us.
This commit is contained in:
SteveMcNeill 2023-10-15 01:24:34 -04:00
parent ca38a08ce7
commit 1a7e9dd959
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
source/qb64pe.bas
View file

@ -24634,19 +24634,19 @@ FUNCTION EvaluateNumbers$ (p, num() AS STRING)
EXIT FUNCTION EXIT FUNCTION
END IF END IF
CASE "\" CASE "\"
IF FIX(VAL(num(2))) = 0 THEN IF VAL(num(2)) = 0 THEN
EvaluateNumbers$ = "ERROR - Division By Zero" EvaluateNumbers$ = "ERROR - Division By Zero"
EXIT FUNCTION EXIT FUNCTION
END IF END IF
n1 = VAL(num(1)) \ FIX(VAL(num(2))) n1 = VAL(num(1)) \ VAL(num(2))
CASE "MOD" CASE "MOD"
IF FIX(VAL(num(2))) = 0 THEN IF VAL(num(2)) = 0 THEN
EvaluateNumbers$ = "ERROR - Division By Zero" EvaluateNumbers$ = "ERROR - Division By Zero"
EXIT FUNCTION EXIT FUNCTION
END IF END IF
n1 = VAL(num(1)) MOD FIX(VAL(num(2))) n1 = VAL(num(1)) MOD VAL(num(2))
CASE "+": n1 = VAL(num(1)) + VAL(num(2)) CASE "+": n1 = VAL(num(1)) + VAL(num(2))
CASE "-": CASE "-":