[movitz-cvs] CVS update: movitz/losp/muerte/basic-functions.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	basic-functions.lisp 
Log Message:
Added operator location-physical-offset.

Date: Wed Apr 20 08:52:26 2005
Author: ffjeld

Index: movitz/losp/muerte/basic-functions.lisp
diff -u movitz/losp/muerte/basic-functions.lisp:1.16 movitz/losp/muerte/basic-functions.lisp:1.17
--- movitz/losp/muerte/basic-functions.lisp:1.16	Thu Jan 27 08:47:37 2005
+++ movitz/losp/muerte/basic-functions.lisp	Wed Apr 20 08:52:26 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Sep  4 18:41:57 2001
 ;;;;                
-;;;; $Id: basic-functions.lisp,v 1.16 2005/01/27 07:47:37 ffjeld Exp $
+;;;; $Id: basic-functions.lisp,v 1.17 2005/04/20 06:52:26 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -349,6 +349,18 @@
 
 (defun object-tag (object)
   (object-tag object))
+
+
+(define-compiler-macro location-physical-offset ()
+  '(memref nil (movitz-type-slot-offset 'movitz-run-time-context
+		'physical-address-offset)
+    :type :lisp))
+
+(defun location-physical-offset ()
+  "The offset between physical and logical locations.
+A location is an 4-aligned address (32 bits whose two lsb are zero)
+interpreted as a lispval, and consequently a fixnum."
+  (location-physical-offset))
 
 (defun halt-cpu ()
   (halt-cpu))