[movitz-cvs] CVS update: movitz/losp/x86-pc/debugger.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

11 Apr 2004

Update of /project/movitz/cvsroot/movitz/losp/x86-pc
In directory common-lisp.net:/tmp/cvs-serv30760
Modified Files:
    debugger.lisp 
Log Message:
Improved *stack-frame-setup-patterns* wrt. function prelude stack bounds-check.
Date: Sun Apr 11 14:56:31 2004
Author: ffjeld
Index: movitz/losp/x86-pc/debugger.lisp
diff -u movitz/losp/x86-pc/debugger.lisp:1.6 movitz/losp/x86-pc/debugger.lisp:1.7

--- movitz/losp/x86-pc/debugger.lisp:1.6	Tue Apr  6 20:34:57 2004
+++ movitz/losp/x86-pc/debugger.lisp	Sun Apr 11 14:56:31 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.6 2004/04/07 00:34:57 ffjeld Exp $
+;;;; $Id: debugger.lisp,v 1.7 2004/04/11 18:56:31 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -318,7 +318,7 @@
    					       (+ 2 (signed8-index result-position))))))))))))))
(defparameter *stack-frame-setup-patterns*
-    '(((:* 1 (#x64 #x62 #x67 #xe7))	; #<asm (FS-OVERRIDE) BOUND [#x-19+%EDI] %ESP>
+    '(((:* 1 (#x64 #x62 #x67 (any-offset))) ; #<asm (FS-OVERRIDE) BOUND [#x-19+%EDI] %ESP>
        (:* 1 (#x55 #x8b #xec #x56))	; pushl ebp, movl esp
        (:* 2 (#x80 #xf9 (cmpargs)
    	   (:or (#x72 (label))

    