Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv17251

Modified Files: interrupt.lisp Log Message: Don't reset dynamic-env on stack overflow. It's a rather bad idea, since it precludes any popping back to top-level.

Date: Fri Nov 19 21:16:15 2004 Author: ffjeld

Index: movitz/losp/muerte/interrupt.lisp diff -u movitz/losp/muerte/interrupt.lisp:1.31 movitz/losp/muerte/interrupt.lisp:1.32 --- movitz/losp/muerte/interrupt.lisp:1.31 Thu Nov 11 20:28:51 2004 +++ movitz/losp/muerte/interrupt.lisp Fri Nov 19 21:16:15 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Apr 7 01:50:03 2004 ;;;; -;;;; $Id: interrupt.lisp,v 1.31 2004/11/11 19:28:51 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.32 2004/11/19 20:16:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -337,9 +337,9 @@ (unwind-protect (progn (setf (%run-time-context-slot 'stack-bottom) new-bottom - (%run-time-context-slot 'dynamic-env) 0 + ;; (%run-time-context-slot 'dynamic-env) 0 (segment-register :es) (segment-register :ds)) - (format *debug-io* "~&Stack-warning: Bumped stack-bottom by ~D to #x~X. Reset ENV and ES.~%" + (format *debug-io* "~&Stack-warning: Bumped stack-bottom by ~D to #x~X. Reset ES.~%" (- old-bottom new-bottom) new-bottom) (break "Stack overload exception ~D at EIP=~@Z, ESP=~@Z, bottom=#x~X, ENV=#x~X." @@ -350,7 +350,7 @@ (format *debug-io* "~&Stack-warning: Resetting stack-bottom to #x~X.~%" old-bottom) (setf (%run-time-context-slot 'stack-bottom) old-bottom - (%run-time-context-slot 'dynamic-env) old-dynamic-env + ;; (%run-time-context-slot 'dynamic-env) old-dynamic-env (segment-register :es) old-es)))) (69 (error "Not a function: ~S" (dereference $edx)))