[movitz-cvs] CVS update: movitz/losp/muerte/interrupt.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

25 Jan 2005

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv16828
Modified Files:
    interrupt.lisp 
Log Message:
Minor tweaks in the DIT.
Date: Tue Jan 25 05:50:17 2005
Author: ffjeld
Index: movitz/losp/muerte/interrupt.lisp
diff -u movitz/losp/muerte/interrupt.lisp:1.35 movitz/losp/muerte/interrupt.lisp:1.36

--- movitz/losp/muerte/interrupt.lisp:1.35	Mon Jan 17 02:51:09 2005
+++ movitz/losp/muerte/interrupt.lisp	Tue Jan 25 05:50:16 2005
@@ -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.35 2005/01/17 10:51:09 ffjeld Exp $
+;;;; $Id: interrupt.lisp,v 1.36 2005/01/25 13:50:16 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -21,6 +21,7 @@
 (defvar *last-dit-frame* nil)
(defconstant +dit-frame-map+
+    ;; Do NOT rearrange this randomly.
     '(:eflags :cs :eip :error-code :exception-vector
       :ebp
       :funobj
@@ -275,8 +276,9 @@
    	    (:int 63)))
        (:cmpw ,(movitz:basic-vector-type-tag :code) (:eax ,movitz:+other-type-offset+))
        (:jne 'pf-continuation-not-code-vector)
-	    (:leal (:eax ,movitz:+code-vector-word-offset+) :ecx)
-	    (:movl :ecx (:ebp ,(dit-frame-offset :eip)))
+	    (:movl ,movitz:+code-vector-word-offset+ (:ebp ,(dit-frame-offset :eip)))
+	    (:addl :eax (:ebp ,(dit-frame-offset :eip)))
+	    
        (:jmp 'normal-return)
        
       not-restart-continuation

    