picolisp

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:
M
src64/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)