[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-serv30105

Modified Files:
	debugger.lisp 
Log Message:
Tweaked *call-site-patterns*.

Date: Thu Jan 27 03:19:55 2005
Author: ffjeld

Index: movitz/losp/x86-pc/debugger.lisp
diff -u movitz/losp/x86-pc/debugger.lisp:1.29 movitz/losp/x86-pc/debugger.lisp:1.30
--- movitz/losp/x86-pc/debugger.lisp:1.29	Fri Jan 21 13:02:45 2005
+++ movitz/losp/x86-pc/debugger.lisp	Thu Jan 27 03:19:53 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.29 2005/01/21 21:02:45 ffjeld Exp $
+;;;; $Id: debugger.lisp,v 1.30 2005/01/27 11:19:53 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -225,7 +225,8 @@
 		(:* 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 #x74 #x7e (:any-offset))))) ; #<asm MOVL [#x28+%ESI+%EDI*2] => %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)
 		(:* 1 ((:or (#x8b #x55 (:edx :ebp))
 			    (#x8b #x56 (:edx :esi)))))