Changeset 5215

Timestamp:

Sep 19, 2006, 12:33:38 AM (18 years ago)

Author:

Gary Byers

Message:

New operators for require-[us][8,16,32,64].

File:

• trunk/ccl/compiler/nxenv.lisp (modified) (1 diff)

trunk/ccl/compiler/nxenv.lisp

@@ -400 +400 @@
      (%fixnum-to-single  . #.(logior operator-assignment-free-mask operator-single-valued-mask operator-acode-subforms-mask operator-side-effect-free-mask))
      (%fixnum-to-double .  #.(logior operator-assignment-free-mask operator-single-valued-mask operator-acode-subforms-mask operator-side-effect-free-mask))
-     )))
+     (require-s8 . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
+     (require-u8 . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
+     (require-s16 . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
+     (require-u16 . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
+     (require-s32 . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
+     (require-u32 . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
+     (require-s64 . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
+     (require-u64 . #.(logior operator-single-valued-mask operator-acode-subforms-mask)))))
 
 (defmacro %nx1-operator (sym)