[Sbcl-commits] CVS: sbcl/src/assembly/x86-64 alloc.lisp,1.6,1.7

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

Update of /cvsroot/sbcl/sbcl/src/assembly/x86-64
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv20434/src/assembly/x86-64

Modified Files:
	alloc.lisp 
Log Message:
1.0.16.25: restore buildability on threaded x86-64

 * GENERATE-ERROR-CODE is still a macro on x86-64, so no quoting
   TLS-EXHAUSTED-ERROR.


Index: alloc.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/assembly/x86-64/alloc.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- alloc.lisp	8 May 2008 07:14:02 -0000	1.6
+++ alloc.lisp	8 May 2008 10:08:48 -0000	1.7
@@ -106,7 +106,7 @@
                (inst jmp :ne release-tls-index-lock)
                ;; Allocate a new tls-index.
                (load-symbol-value target *free-tls-index*)
-               (let ((error (generate-error-code nil 'tls-exhausted-error)))
+               (let ((error (generate-error-code nil tls-exhausted-error)))
                  (inst cmp target (fixnumize tls-size))
                  (inst jmp :ge error))
                (inst add (make-ea-for-symbol-value *free-tls-index*)