Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv17921

Modified Files: interrupt.lisp Log Message: Minor change.

Date: Thu Mar 25 20:51:21 2004 Author: ffjeld

Index: movitz/losp/x86-pc/interrupt.lisp diff -u movitz/losp/x86-pc/interrupt.lisp:1.4 movitz/losp/x86-pc/interrupt.lisp:1.5 --- movitz/losp/x86-pc/interrupt.lisp:1.4 Wed Mar 24 08:36:26 2004 +++ movitz/losp/x86-pc/interrupt.lisp Thu Mar 25 20:51:21 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri May 4 18:08:50 2001 ;;;; -;;;; $Id: interrupt.lisp,v 1.4 2004/03/24 13:36:26 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.5 2004/03/26 01:51:21 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -182,8 +182,8 @@ (67 (muerte.debug:backtrace :fresh-lines nil :length 6) (dotimes (i 100000) (with-inline-assembly (:returns :nothing) (:nop)))) - (66 (error "Unspecified type error in ~S with EAX=~@Z, ECX=~@Z." - (@ (+ int-frame (int-frame-index :esi))) + (66 (error "Unspecified type error at ~@Z in ~S with EAX=~@Z, ECX=~@Z." + $eip (@ (+ int-frame (int-frame-index :esi))) $eax $ecx)) (62 (error "Trying to save too many values: ~@Z." $ecx)) ((5 55)