[Sbcl-commits] CVS: sbcl/src/compiler assem.lisp,1.16,1.17 fun-info-funs.lisp,1.1,1.2

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory usw-pr-cvs1:/tmp/cvs-serv1605/src/compiler

Modified Files:
	assem.lisp fun-info-funs.lisp 
Log Message:
0.7.6.17:
	Unabbreviate "variable" used adjectivally
	... VARIABLE-LENGTH boolean attribute for backend pseudo-instructions
	... VARIABLE-LENGTH-P slot in primitive object structure
	Turn on the assembler scheduler for SPARCs


Index: assem.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/assem.lisp,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- assem.lisp	9 Jun 2002 02:30:02 -0000	1.16
+++ assem.lisp	12 Aug 2002 13:54:50 -0000	1.17
@@ -185,7 +185,7 @@
   ;; This attribute indicates that this ``instruction'' can be
   ;; variable length, and therefore had better never be used in a
   ;; branch delay slot.
-  var-length)
+  variable-length)
 
 (defstruct (instruction
 	    (:include sset-element)
@@ -360,7 +360,7 @@
     (when countdown
       (decf countdown)
       (aver (not (instruction-attributep (inst-attributes inst)
-					 var-length))))
+					 variable-length))))
     (cond ((instruction-attributep (inst-attributes inst) branch)
 	   (unless countdown
 	     (setf countdown (inst-delay inst)))
@@ -573,7 +573,7 @@
     (let ((inst (car remaining)))
       (unless (and delay-slot-p
 		   (instruction-attributep (inst-attributes inst)
-					   var-length))
+					   variable-length))
 	;; We've got us a live one here. Go for it.
 	#!+sb-show-assem (format *trace-output* "emitting ~S~%" inst)
 	;; Delete it from the list of insts.

Index: fun-info-funs.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/fun-info-funs.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- fun-info-funs.lisp	9 Feb 2002 17:20:53 -0000	1.1
+++ fun-info-funs.lisp	12 Aug 2002 13:54:50 -0000	1.2
@@ -23,10 +23,10 @@
 		(ir2-convert-setter node block name offset lowtag)))))
   name)
 
-(defun %def-alloc (name words var-length header lowtag inits)
+(defun %def-alloc (name words variable-length-p header lowtag inits)
   (let ((info (fun-info-or-lose name)))
     (setf (fun-info-ir2-convert info)
-	  (if var-length
+	  (if variable-length-p
 	      (lambda (node block)
 		(ir2-convert-variable-allocation node block name words header
 						 lowtag inits))