[Openmcl-cvs-notifications] r15079 - /trunk/source/compiler/nx1.lisp

[gb at clozure.com]

Author: gb
Date: Sat Nov 19 16:14:53 2011
New Revision: 15079

Log:
NX1-%PTR-TO-INT: %PTR-TO-INT's result is of *NX-TARGET-NATURAL-TYPE*.

Modified:
    trunk/source/compiler/nx1.lisp

Modified: trunk/source/compiler/nx1.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/nx1.lisp (original)
+++ trunk/source/compiler/nx1.lisp Sat Nov 19 16:14:53 2011
@@ -462,10 +462,12 @@
                (nx1-form :value int))))
 =

 (defnx1 nx1-%ptr-to-int ((%ptr-to-int)) context (ptr)
-  (make-acode =

-   (%nx1-operator %immediate-ptr-to-int)
-   (make-acode (%nx1-operator %macptrptr%) =

-               (nx1-form :value ptr))))
+   (make-acode (%nx1-operator typed-form)
+               *nx-target-natural-type*
+               (make-acode =

+                (%nx1-operator %immediate-ptr-to-int)
+                (make-acode (%nx1-operator %macptrptr%) =

+                            (nx1-form :value ptr)))))
 =

 (defnx1 nx1-%null-ptr-p ((%null-ptr-p)) context (ptr)
   (nx1-form :value `(%ptr-eql ,ptr (%int-to-ptr 0))))