picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit b99c1511587d130b726934df2b54c29122e20580
parent b30d2e36fbfa650613f6deebbfa280add812712b
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat, 25 May 2013 07:52:35 +0200

Set StkLimit in error handler
Diffstat:
Msrc64/err.l | 8+++++++-
1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src64/err.l b/src64/err.l @@ -1,4 +1,4 @@ -# 24may13abu +# 25may13abu # (c) Software Lab. Alexander Burger # Debug print routine @@ -164,6 +164,12 @@ ld (EnvTrace) 0 ld L 0 # Init link register ld S (Stack0) # stack pointer + null (Stacks) # Coroutines? + if nz # Yes + lea A (S 4096) # Set stack limit + sub A (StkSize) + ld (StkLimit) A + end jmp restart # Restart interpreter (code 'unwindC_Z 0)