Changeset 14331

Timestamp:

Oct 5, 2010, 3:48:27 AM (14 years ago)

Author:

Gary Byers

Message:

Bootstrapping: replace unused operators with new ones for ASH, LOGNOT.
(More to come.)

File:

• trunk/source/compiler/nxenv.lisp (modified) (2 diffs)

trunk/source/compiler/nxenv.lisp

@@ -98 +98 @@
      (%i- . #.(logior operator-single-valued-mask operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask))
      (cxxr . #.(logior operator-single-valued-mask operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask))
-     (%dfp-combine . 0)
+     (ash . #.(logior operator-single-valued-mask operator-assignment-free-mask operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask))
      (%ilsl . #.(logior operator-single-valued-mask operator-assignment-free-mask operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask))
      (%ilogand2 . #.(logior operator-single-valued-mask operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask))
@@ -113 +113 @@
      (%fixnum-ref-natural . #.operator-single-valued-mask)
      (%current-tcr . #.operator-single-valued-mask)
-     (%stack-trap . #.operator-single-valued-mask)
+     (%ilognot . #.(logior operator-single-valued-mask operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask operator-cc-invertable-mask))
      (multiple-value-prog1 . 0)
      (multiple-value-bind . 0)