[Sbcl-commits] CVS: sbcl/src/code exhaust.lisp,1.8,1.8.46.1

[Daniel B. <da...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17222/src/code

Modified Files:
      Tag: amd64-pthread-branch
	exhaust.lisp 
Log Message:
trampolines must be 8-byte aligned, else their addresses are not fixnum and gc blows up on fdefns that refer to them

Index: exhaust.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/exhaust.lisp,v
retrieving revision 1.8
retrieving revision 1.8.46.1
diff -u -d -r1.8 -r1.8.46.1
--- exhaust.lisp	2 Apr 2003 11:15:15 -0000	1.8
+++ exhaust.lisp	6 Feb 2005 01:07:23 -0000	1.8.46.1
@@ -15,6 +15,8 @@
 		       %protect-control-stack-guard-page)
     sb!alien:int (thread-id sb!alien:int) (protect-p sb!alien:int))
 (defun protect-control-stack-guard-page (n)
+  (declare (ignore n))
+  #+nil
   (%protect-control-stack-guard-page 
    (sb!thread:current-thread-id) (if n 1 0)))