QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-05-12 12:00:14 +00:00
Code Releases Wiki Activity

Merge pull request #54 from visionmercer/evaluator

Browse source 
Evaluator
This commit is contained in:
Cory Smith 2023-10-13 14:13:38 -05:00 committed by GitHub
parent 60d2234540 3cef4b4088
commit 53784f5296
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
source/qb64.bas
View file

@ -24924,14 +24924,14 @@ FUNCTION EvaluateNumbers$ (p, num() AS STRING)
EXIT FUNCTION
END IF
n1 = VAL(num(1)) \ FIX(VAL(num(2)))
n1 = VAL(num(1)) \ VAL(num(2))
CASE "MOD"
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)))
n1 = VAL(num(1)) MOD VAL(num(2))
CASE "+": n1 = VAL(num(1)) + VAL(num(2))
CASE "-":
@ -26321,4 +26321,4 @@ SUB DebugPrint(text$)
OPEN debugPath$ + "/qb64.log" FOR APPEND AS #fn
PRINT #fn, text$
CLOSE #fn
END SUB
END SUB