This commit is contained in:
Andreas Rumpf 2016-10-21 09:48:57 +02:00
commit 50dc712d5e

View file

@ -900,7 +900,7 @@ proc rawExecute(c: PCtx, start: int, tos: PStackFrame): TFullReg =
if newPc < pc: handleJmpBack() if newPc < pc: handleJmpBack()
#echo "new pc ", newPc, " calling: ", prc.name.s #echo "new pc ", newPc, " calling: ", prc.name.s
var newFrame = PStackFrame(prc: prc, comesFrom: pc, next: tos) var newFrame = PStackFrame(prc: prc, comesFrom: pc, next: tos)
newSeq(newFrame.slots, prc.offset) newSeq(newFrame.slots, prc.offset+ord(isClosure))
if not isEmptyType(prc.typ.sons[0]) or prc.kind == skMacro: if not isEmptyType(prc.typ.sons[0]) or prc.kind == skMacro:
putIntoReg(newFrame.slots[0], getNullValue(prc.typ.sons[0], prc.info)) putIntoReg(newFrame.slots[0], getNullValue(prc.typ.sons[0], prc.info))
for i in 1 .. rc-1: for i in 1 .. rc-1: