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

Modified Files:
	debugger.lisp 
Log Message:
Have the debugger accept bigger pointer-sizes as "reasonable".

Date: Wed Jul 14 17:28:30 2004
Author: ffjeld

Index: movitz/losp/x86-pc/debugger.lisp
diff -u movitz/losp/x86-pc/debugger.lisp:1.15 movitz/losp/x86-pc/debugger.lisp:1.16
--- movitz/losp/x86-pc/debugger.lisp:1.15	Mon Jul 12 04:10:40 2004
+++ movitz/losp/x86-pc/debugger.lisp	Wed Jul 14 17:28:30 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.15 2004/07/12 11:10:40 ffjeld Exp $
+;;;; $Id: debugger.lisp,v 1.16 2004/07/15 00:28:30 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -58,8 +58,7 @@
 (defun pointer-in-range (x)
   (with-inline-assembly (:returns :boolean-cf=1)
     (:compile-form (:result-mode :eax) x)
-    ;; (:subl #x100000 :eax)
-    (:cmpl #x1000000 :eax)))
+    (:cmpl #x10000000 :eax)))
 
     
 (defun code-vector-offset (code-vector address)