VM: fixes 'raise'

This commit is contained in:
Araq 2014-07-10 00:59:00 +02:00
commit 44353c585f

View file

@ -902,7 +902,7 @@ proc rawExecute(c: PCtx, start: int, tos: PStackFrame): TFullReg =
c.exceptionInstr = pc c.exceptionInstr = pc
let (newPc, newTos) = cleanUpOnException(c, tos) let (newPc, newTos) = cleanUpOnException(c, tos)
# -1 because of the following 'inc' # -1 because of the following 'inc'
if pc-1 < 0: if newPc-1 < 0:
bailOut(c, tos) bailOut(c, tos)
return return
pc = newPc-1 pc = newPc-1