[Sbcl-commits] CVS: sbcl/src/compiler early-assem.lisp,1.5,1.5.24.1

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

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1:/tmp/cvs-serv4053/src/compiler

Modified Files:
      Tag: alpha64_branch
	early-assem.lisp 
Log Message:
alpha.0.28.alpha64.1:
	WILL NOT WORK!  WILL EAT YOUR LUNCH!

	This branch (alpha64_branch) is to attempt to make sbcl completely
	64-bit on the alpha.
	
	This commit allows the system to compile as far as second genesis, for
	the alpha.  It will almost certainly not work anywhere else.


Index: early-assem.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/early-assem.lisp,v
retrieving revision 1.5
retrieving revision 1.5.24.1
diff -u -d -r1.5 -r1.5.24.1
--- early-assem.lisp	19 May 2002 13:55:32 -0000	1.5
+++ early-assem.lisp	14 May 2003 12:12:03 -0000	1.5.24.1
@@ -45,7 +45,7 @@
 ;;; the maximum alignment we can guarantee given the object format. If
 ;;; the loader only loads objects 8-byte aligned, we can't do any
 ;;; better then that ourselves.
-(def!constant max-alignment 3)
+(def!constant max-alignment sb!vm:n-lowtag-bits)
 
 (deftype alignment ()
   `(integer 0 ,max-alignment))