Changeset 15079


Ignore:
Timestamp:
Nov 19, 2011, 10:14:53 PM (8 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx1.lisp

    r15040 r15079  
    463463
    464464(defnx1 nx1-%ptr-to-int ((%ptr-to-int)) context (ptr)
    465   (make-acode
    466    (%nx1-operator %immediate-ptr-to-int)
    467    (make-acode (%nx1-operator %macptrptr%)
    468                (nx1-form :value ptr))))
     465   (make-acode (%nx1-operator typed-form)
     466               *nx-target-natural-type*
     467               (make-acode
     468                (%nx1-operator %immediate-ptr-to-int)
     469                (make-acode (%nx1-operator %macptrptr%)
     470                            (nx1-form :value ptr)))))
    469471
    470472(defnx1 nx1-%null-ptr-p ((%null-ptr-p)) context (ptr)
Note: See TracChangeset for help on using the changeset viewer.