[movitz-cvs] CVS update: movitz/losp/x86-pc/interrupt.lisp

[Frode Vatvedt Fjeld]

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