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

Modified Files: compiler.lisp Log Message: Added variable *compiler-physical-segment-prefix*, similar to *compiler-local-segment-prefix* etc.

Date: Mon Aug 9 07:39:31 2004 Author: ffjeld

Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.90 movitz/compiler.lisp:1.91 --- movitz/compiler.lisp:1.90 Mon Aug 9 06:38:20 2004 +++ movitz/compiler.lisp Mon Aug 9 07:39:31 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.90 2004/08/09 13:38:20 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.91 2004/08/09 14:39:31 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -43,6 +43,10 @@ (defvar *compiler-global-segment-prefix* nil "Use these assembly-instruction prefixes when accessing the global run-time context.") + +(defvar *compiler-physical-segment-prefix* '(:gs-override) + "Use this instruction prefix when accessing a physical memory location +(i.e. typically some memory-mapped hardware device).")

(defvar *compiler-allow-untagged-word-bits* 0 "Allow (temporary) untagged values of this bit-size to exist, because