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

Modified Files: interrupt.lisp Log Message: A hack to get a hopefully good segment selector in DS for the interrupt handler.

Date: Fri Aug 12 22:28:30 2005 Author: ffjeld

Index: movitz/losp/muerte/interrupt.lisp diff -u movitz/losp/muerte/interrupt.lisp:1.46 movitz/losp/muerte/interrupt.lisp:1.47 --- movitz/losp/muerte/interrupt.lisp:1.46 Tue May 24 08:33:28 2005 +++ movitz/losp/muerte/interrupt.lisp Fri Aug 12 22:28:30 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.46 2005/05/24 06:33:28 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.47 2005/08/12 20:28:30 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -116,6 +116,8 @@ (:pushl :ecx) (:movcr :cr2 :ecx) (:locally (:pushl :ecx)) + (:movw #x20 :cx) + (:movw :cx :ds) ,@(loop for reg in (sort (copy-list '(:eax :ebx :edx :esi)) #'> :key #'dit-frame-index)