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

Modified Files:
	debugger.lisp 
Log Message:
Slight fix to *call-site-patterns*, so that the arglist to recursive
calls might be recognized.

Date: Mon Jul 12 04:10:40 2004
Author: ffjeld

Index: movitz/losp/x86-pc/debugger.lisp
diff -u movitz/losp/x86-pc/debugger.lisp:1.14 movitz/losp/x86-pc/debugger.lisp:1.15
--- movitz/losp/x86-pc/debugger.lisp:1.14	Sun Jul 11 12:26:11 2004
+++ movitz/losp/x86-pc/debugger.lisp	Mon Jul 12 04:10:40 2004
@@ -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.14 2004/07/11 19:26:11 ffjeld Exp $
+;;;; $Id: debugger.lisp,v 1.15 2004/07/12 11:10:40 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -220,10 +220,10 @@
 			    (#x8b #x5e (:ebx :esi)) ; (:movl (:esi x) :ebx)
 			    (#x33 #xdb (:constant :ebx 0))
 			    )))
-		(: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>
+		(:* 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>
 		(:* 1 ((:or (#xb1 (:cl-numargs))))) ; (:movb x :cl)
 		(:* 1 ((:or (#x8b #x55 (:edx :ebp))
 			    (#x8b #x56 (:edx :esi)))))