From: Tim Vaughan Date: Tue, 26 Apr 2016 21:05:46 +0000 (+1200) Subject: Stacks cleared on error. X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=990c32e23baef033051587cfdfe2aef3e18b888a;p=forth.jl.git Stacks cleared on error. --- diff --git a/src/forth.jl b/src/forth.jl index bba6a98..fba2375 100644 --- a/src/forth.jl +++ b/src/forth.jl @@ -1020,6 +1020,8 @@ function run(;initialize=true) mem[STATE] = 0 mem[NUMTIB] = 0 + reg.PSP = mem[PSP0] + reg.RSP = mem[RSP0] reg.IP = QUIT + 1 jmp = NEXT end