[movitz-cvs] CVS update: movitz/special-operators.lisp

[Frode Vatvedt Fjeld]

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 at 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))))