VM: fixes 'raise'
This commit is contained in:
parent
47fb8d8e6d
commit
44353c585f
1 changed files with 2 additions and 2 deletions
|
|
@ -902,10 +902,10 @@ 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
|
||||||
if tos != newTos:
|
if tos != newTos:
|
||||||
tos = newTos
|
tos = newTos
|
||||||
move(regs, tos.slots)
|
move(regs, tos.slots)
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue