CVS: sbcl/src/compiler saptran.lisp,1.13,1.14

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

Modified Files:
	saptran.lisp 
Log Message:
1.0.19.14: Immediate SAP bug fix & grab bag of small changes

 * SAPs can't actually be emitted as immediates. Only a problem now that
   constants are treated more cleverly.

   Fixes the "#.(SB-SYS:INT-SAP #X00000000) fell through ETYPECASE expression"
   bug associated with CFFI's NULL-POINTER. Reported by Ingo Bormuth on
   sbcl-devel, and by several others on #lisp.

 * EAs can still only fit 32 bit displacements on x86-64.

 * Make SAP-INT foldable, thus improving code generation for expressions
   like (sap= +null-pointer+ sap).

Index: saptran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/saptran.lisp,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- saptran.lisp	27 Jan 2007 03:45:49 -0000	1.13
+++ saptran.lisp	1 Aug 2008 17:10:22 -0000	1.14
 <at>  <at>  -48,7 +48,7  <at>  <at> 

 (defknown sap-int (system-area-pointer)
   (unsigned-byte #.sb!vm::n-machine-word-bits)
-  (movable flushable))
+  (movable flushable foldable))
 (defknown int-sap ((unsigned-byte #.sb!vm::n-machine-word-bits))
   system-area-pointer (movable))

-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/