Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv5750

Modified Files: inspect.lisp Log Message: Minor code-tuneup.

Date: Wed Mar 31 21:11:48 2004 Author: ffjeld

Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.6 movitz/losp/muerte/inspect.lisp:1.7 --- movitz/losp/muerte/inspect.lisp:1.6 Mon Mar 29 10:26:25 2004 +++ movitz/losp/muerte/inspect.lisp Wed Mar 31 21:11:48 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Oct 24 09:50:41 2003 ;;;; -;;;; $Id: inspect.lisp,v 1.6 2004/03/29 15:26:25 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.7 2004/04/01 02:11:48 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -87,8 +87,9 @@

(defun stack-ref-p (pointer) (let ((top (load-global-constant-u32 stack-top)) - (bottom (with-inline-assembly (:returns :untagged-fixnum-ecx) - (:movl :esp :ecx)))) + (bottom (with-inline-assembly (:returns :eax) + (:movl :esp :eax) + (:shll #.movitz:+movitz-fixnum-shift+ :eax)))) (<= bottom pointer top)))

(defun stack-ref (pointer offset index type)