Changeset 15079

Timestamp:

Nov 19, 2011, 2:14:53 PM (13 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/source/compiler/nx1.lisp (modified) (1 diff)

trunk/source/compiler/nx1.lisp

@@ -463 +463 @@
 
 (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)