Changeset 14757


Ignore:
Timestamp:
Apr 29, 2011, 9:56:55 PM (9 years ago)
Author:
gb
Message:

New operators for %SINGLE-FLOAT-NEGATE, %DOUBLE-FLOAT-NEGATE.

File:
1 edited

Legend:

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

    r14417 r14757  
    368368     (general-aref2 .  #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask))
    369369     (%single-float .  #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask))
    370      (%double-float . #. #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask))
     370     (%double-float . #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask))
    371371     (i386-ff-call . 0)
    372      (i386-syscall . 0))))
     372     (i386-syscall . 0)
     373     (%double-float-negate . #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask))
     374     (%single-float-negate . #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask)) )))
    373375
    374376(defmacro %nx1-operator (sym)
Note: See TracChangeset for help on using the changeset viewer.