[Sbcl-commits] CVS: sbcl/src/compiler aliencomp.lisp,1.32,1.33

[Alexey D. <ade...@us...>]

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

Modified Files:
	aliencomp.lisp 
Log Message:
1.0.16.1: fix heap-allocated alien variable reference


Index: aliencomp.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/aliencomp.lisp,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- aliencomp.lisp	7 Mar 2008 12:26:44 -0000	1.32
+++ aliencomp.lisp	13 Apr 2008 03:48:19 -0000	1.33
@@ -332,7 +332,8 @@
 (deftransform %heap-alien-addr ((info) * * :important t)
   (multiple-value-bind (sap type) (heap-alien-sap-and-type info)
     (/noshow "in DEFTRANSFORM %HEAP-ALIEN-ADDR, creating %SAP-ALIEN")
-    `(%sap-alien ,sap ',type)))
+    `(%sap-alien ,sap ',(make-alien-pointer-type :to type))))
+
 
 ;;;; support for local (stack or register) aliens