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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Change the name "constant-block" to "run-time-context" so as to be
consistent. "Run-time-context" is the name that's I've been using in
newer documentation and code.

Date: Wed Jul 28 03:00:20 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.85 movitz/compiler.lisp:1.86
--- movitz/compiler.lisp:1.85	Fri Jul 23 18:32:06 2004
+++ movitz/compiler.lisp	Wed Jul 28 03:00:20 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.85 2004/07/24 01:32:06 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.86 2004/07/28 10:00:20 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -499,6 +499,8 @@
 		   (setf (binding-store-type binding)
 		     (cond
 		      ((not (null (type-analysis-thunks analysis)))
+;;;		       (when (not (rest (type-analysis-thunks analysis)))
+;;;			 (warn "One thunk: ~S for ~S" binding (first (type-analysis-thunks analysis))))
 		       (multiple-value-list (type-specifier-encode t)))
 		      (t (type-analysis-encoded-type analysis))))
 		   #+ignore
@@ -1520,7 +1522,7 @@
 	     (when (instruction-is op :call)
 	       (let ((x (global-constant-operand (second op))))
 		 (flet ((try (name)
-			  (and (eql x (slot-offset 'movitz-constant-block name))
+			  (and (eql x (slot-offset 'movitz-run-time-context name))
 			       name)))
 		   (cond
 		    ((not x) nil)
@@ -3555,7 +3557,7 @@
 		((atom tree)
 		 tree)
 		((eq :edi-offset (car tree))
-		 (check-type (cadr tree) symbol "a Movitz constant-block label")
+		 (check-type (cadr tree) symbol "a Movitz run-time-context label")
 		 (+ (global-constant-offset (cadr tree))
 		    (reduce #'+ (cddr tree))))
 		(t (cons (fix-edi-offset (car tree))