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