Changeset 6144


Ignore:
Timestamp:
Apr 7, 2007, 12:31:35 PM (12 years ago)
Author:
gb
Message:

Operators for %single-float, %double-float.

File:
1 edited

Legend:

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

    r5530 r6144  
    408408     (require-s64 . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
    409409     (require-u64 . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
    410      (general-aref2 .  #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask)))))
     410     (general-aref2 .  #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask))
     411     (%single-float .  #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask))
     412     (%double-float . #. #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask)))))
    411413
    412414(defmacro %nx1-operator (sym)
Note: See TracChangeset for help on using the changeset viewer.