QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-02 21:11:22 +00:00
Code Releases Wiki Activity

Fixed evaluator crashing with \ and/or MOD.

Browse source
This commit is contained in:
Cory Smith 2022-08-26 22:44:49 -05:00
parent 24a5718fc5
commit 74a6b3de35
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
source/qb64.bas
View file

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