[movitz-cvs] CVS update: movitz/compiler.lisp

[Frode Vatvedt Fjeld]

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