[Sbcl-commits] CVS: sbcl/src/compiler/generic primtype.lisp, 1.27, 1.28

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler/generic
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv18095/src/compiler/generic

Modified Files:
	primtype.lisp 
Log Message:
1.0.16.32: revert ANY-REG from registers for primitive type T on x86oids

 * While register sets for DESCRIPTOR-REG and ANY-REG are identical on
   x86 and x86-64, the compiler reasons about them a bit differently
   -- so the earlier change is wrong, and caused a regression.

 * Test-case to catch the regression, reduced from Elephant sources.

 * Record the bug the earlier change tried to address as #427.


Index: primtype.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/primtype.lisp,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- primtype.lisp	24 Apr 2008 08:36:12 -0000	1.27
+++ primtype.lisp	15 May 2008 16:10:03 -0000	1.28
@@ -16,7 +16,7 @@
 
 (/show0 "primtype.lisp 17")
 
-(!def-primitive-type t (descriptor-reg #!+(or x86 x86-64) any-reg))
+(!def-primitive-type t (descriptor-reg))
 (/show0 "primtype.lisp 20")
 (setf *backend-t-primitive-type* (primitive-type-or-lose t))