[Openmcl-cvs-notifications] r14941 - /trunk/source/compiler/ARM/arm2.lisp

[gb at clozure.com]

Author: gb
Date: Tue Aug 16 16:43:48 2011
New Revision: 14941

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

Modified:
    trunk/source/compiler/ARM/arm2.lisp

Modified: trunk/source/compiler/ARM/arm2.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/ARM/arm2.lisp (original)
+++ trunk/source/compiler/ARM/arm2.lisp Tue Aug 16 16:43:48 2011
@@ -6199,7 +6199,8 @@
   (if (setq test-val (nx2-constant-form-value (acode-unwrapped-form-value =
testform)))
     (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 other=
wise)
           (let* ((cstack *arm2-cstack*)
                  (vstack *arm2-vstack*)