[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-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 at 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))