Changeset 14941

Timestamp:

Aug 16, 2011, 2:43:48 PM (13 years ago)

Author:

Gary Byers

Message:

CASE optimizations were accidentally enabled in the last commit;
they aren't ready yet.

File:

• trunk/source/compiler/ARM/arm2.lisp (modified) (1 diff)

trunk/source/compiler/ARM/arm2.lisp

@@ -6200 +6200 @@
     (arm2-form seg vreg xfer (if (nx-null test-val) false true))
     (multiple-value-bind (ranges trueforms var otherwise)
-        (nx2-reconstruct-case testform true false)
+        #+notyet (nx2-reconstruct-case testform true false)
+        #-notyet (values nil nil nil nil)
       (or (arm2-generate-casejump seg vreg xfer ranges trueforms var otherwise)
           (let* ((cstack *arm2-cstack*)