Changeset 5446

Timestamp:

Nov 3, 2006, 11:37:42 AM (18 years ago)

Author:

Gary Byers

Message:

aref2 -> simple-typed-aref2, add general-aref2. More changes to come (and this may
affect compilation on PPC until some PPC compiler changes are made/checked-in.)

File:

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

trunk/ccl/compiler/nxenv.lisp

@@ -185 +185 @@
      (%rplacd . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
      (cons . #.(logior operator-assignment-free-mask operator-single-valued-mask operator-acode-subforms-mask))
-     (aref2 . #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask))
+     (simple-typed-aref2 . #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask))
      (setq-free . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
      (prog1 . 0)
@@ -407 +407 @@
      (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)))))
+     (require-u64 . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
+     (general-aref2 .  #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask)))))
 
 (defmacro %nx1-operator (sym)