From 74a6b3de3572fa81fb56157ae8cc6a5283d73203 Mon Sep 17 00:00:00 2001 From: Cory Smith Date: Fri, 26 Aug 2022 22:44:49 -0500 Subject: [PATCH] Fixed evaluator crashing with \ and/or MOD. --- source/qb64.bas | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/source/qb64.bas b/source/qb64.bas index d8a423a57..ea271d60a 100644 --- a/source/qb64.bas +++ b/source/qb64.bas @@ -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))