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