Changeset 6146


Ignore:
Timestamp:
Apr 7, 2007, 12:34:48 PM (13 years ago)
Author:
gb
Message:

%fixnum-to-single wasn't defined, %fixnum-to-double was defined twice.
(Coincidence ? I think not.)
Parse ccl::%short-float and ccl::%double-float when no mutable destination.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/objc-gf/ccl/compiler/nx1.lisp

    r6133 r6146  
    20452045              (nx1-form arg)))
    20462046
    2047 (defnx1 nx1-%fixnum-to-double ((%fixnum-to-single)) (arg)
     2047(defnx1 nx1-%fixnum-to-single ((%fixnum-to-single)) (arg)
    20482048  (make-acode (%nx1-operator %fixnum-to-single)
    20492049              (nx1-form arg)))
     2050
     2051(defnx1 nx1-%double-float ((%double-float)) (&whole whole arg &optional (result nil result-p))
     2052  (declare (ignore result))
     2053  (if result-p
     2054    (nx1-treat-as-call whole)
     2055    (make-acode (%nx1-operator %double-float) (nx1-form arg))))
     2056
     2057(defnx1 nx1-%short-float ((%short-float)) (&whole whole arg &optional (result nil result-p))
     2058  (declare (ignore result))       
     2059  (if result-p
     2060    (nx1-treat-as-call whole)
     2061    (make-acode (%nx1-operator %single-float) (nx1-form arg))))
     2062
    20502063
    20512064(defnx1 nx1-symvector ((%symptr->symvector) (%symvector->symptr)) (arg)
Note: See TracChangeset for help on using the changeset viewer.