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

Modified Files: special-operators.lisp Log Message: Changed the protocol (wrt. stack discipline) for dynamic control transfer slightly, so that restart-atomically-continuation (i.e. continue after an interrupt occurred inside an atomical sequence) fits into it all.

Date: Thu Feb 3 10:18:51 2005 Author: ffjeld

Index: movitz/special-operators.lisp diff -u movitz/special-operators.lisp:1.48 movitz/special-operators.lisp:1.49 --- movitz/special-operators.lisp:1.48 Tue Jan 4 17:54:10 2005 +++ movitz/special-operators.lisp Thu Feb 3 10:18:51 2005 @@ -8,7 +8,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Nov 24 16:22:59 2000 ;;;; -;;;; $Id: special-operators.lisp,v 1.48 2005/01/04 16:54:10 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.49 2005/02/03 09:18:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -1210,6 +1210,7 @@ `((:load-lexical ,dynamic-slot-binding :edx) (:locally (:movl :edx (:edi (:edi-offset raw-scratch0)))) ; final continuation (:load-lexical ,next-continuation-step-binding :edx) ; next continuation-step + (:locally (:movl :edx (:edi (:edi-offset dynamic-env)))) ; goto target dynamic-env (:locally (:call (:edi (:edi-offset dynamic-jump-next))))))))))

;;; (:locally (:movl :esi (:edi (:edi-offset scratch1))))