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