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

[Frode Vatvedt Fjeld]

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

Modified Files:
	debugger.lisp 
Log Message:
Fixed buglet in *call-site-patterns*, the function-value offset for
symbols was out of sync. Should fix some {eax unknown}s in backtrace.

Date: Mon Feb 28 17:44:37 2005
Author: ffjeld

Index: movitz/losp/x86-pc/debugger.lisp
diff -u movitz/losp/x86-pc/debugger.lisp:1.33 movitz/losp/x86-pc/debugger.lisp:1.34
--- movitz/losp/x86-pc/debugger.lisp:1.33	Mon Feb 28 17:15:53 2005
+++ movitz/losp/x86-pc/debugger.lisp	Mon Feb 28 17:44:37 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Nov 22 10:09:18 2002
 ;;;;                
-;;;; $Id: debugger.lisp,v 1.33 2005/02/28 16:15:53 ffjeld Exp $
+;;;; $Id: debugger.lisp,v 1.34 2005/02/28 16:44:37 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -235,7 +235,7 @@
 			    )))
 		(:* 1 ((:or ((:or (#x8b #x56 (:edx :esi)) ;     (:movl (:esi x) :edx)
 				  (#x8b #x54 #x37 (:edx :esi+edi))) ;#<asm MOVL [#x39+%EDI+%ESI] => %EDX>
-			     #x8b #x72 #xfd) ;     (:movl (:edx -3) :esi)
+			     #x8b #x72 #xf9) ;     (:movl (:edx -7) :esi)
 			    (#x8b #x74 #x7e (:any-offset)) ; #<asm MOVL [#x28+%ESI+%EDI*2] => %ESI>
 			    (#x8b #x76 (:any-offset))))) ; #<asm MOVL [#x56+%ESI] => %ESI>
 		(:* 1 ((:or (#xb1 (:cl-numargs))))) ; (:movb x :cl)