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

Fix to CONST crash with Integer Division by Zero error

Browse source
This commit is contained in:
SteveMcNeill 2019-08-01 13:45:12 -04:00
parent 9805accab2
commit e52009ba83
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
source/qb64.bas
View file

@ -2159,7 +2159,8 @@ DO
altered = -1
wholestv$ = LEFT$(wholestv$, L) + temp1$ + MID$(wholestv$, l2 + 1)
ELSE
'We should leave it as it is and let the normal CONST routine handle things from here on out and see if it passes the rest of the error checks.
IF LEFT$(temp1$, 5) = "ERROR" THEN a$ = temp1$: GOTO errmes
'If it's not an error, we should leave it as it is and let the normal CONST routine handle things from here on out and see if it passes the rest of the error checks.
END IF
L = L + 1
END IF
@ -23703,7 +23704,13 @@ FUNCTION EvaluateNumbers$ (p, num() AS STRING)
n1 = sign * (n1 ^ n3)
CASE "*": n1 = VAL(num(1)) * VAL(num(2))
CASE "/": n1 = VAL(num(1)) / VAL(num(2))
CASE "\": n1 = VAL(num(1)) \ VAL(num(2))
CASE "\"
IF VAL(num(2)) <> 0 THEN
n1 = VAL(num(1)) \ VAL(num(2))
ELSE
EvaluateNumbers$ = "ERROR - Division By Zero"
EXIT FUNCTION
END IF
CASE "MOD": n1 = VAL(num(1)) MOD VAL(num(2))
CASE "+": n1 = VAL(num(1)) + VAL(num(2))
CASE "-": n1 = VAL(num(1)) - VAL(num(2))