Changeset 7331 for branches

Timestamp:

Oct 1, 2007, 1:01:34 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

Don't open code aref on IA-32 (yet)

File:

• branches/ia32/compiler/nx1.lisp (modified) (4 diffs)

branches/ia32/compiler/nx1.lisp

@@ -795 +795 @@
 
 (defnx1 nx1-%aref2 ((%aref2)) (&whole whole &environment env arr i j)
+  ;; Bleah.  Breaks modularity.  Specialize later.
+  (target-arch-case
+   (:x8632
+    (return-from nx1-%aref2 (nx1-treat-as-call whole))))
+
   (let* ((arch (backend-target-arch *target-backend*))
          (ctype (specifier-type (nx-form-type arr env)))
@@ -822 +827 @@
 
 (defnx1 nx1-%aref3 ((%aref3)) (&whole whole &environment env arr i j k)
+  ;; Bleah.  Breaks modularity.  Specialize later.
+  (target-arch-case
+   (:x8632
+    (return-from nx1-%aref3 (nx1-treat-as-call whole))))
+
   (let* ((arch (backend-target-arch *target-backend*))
          (ctype (specifier-type (nx-form-type arr env)))
@@ -893 +903 @@
             
 (defnx1 nx1-%aset2 ((%aset2)) (&whole whole &environment env arr i j new)
+  ;; Bleah.  Breaks modularity.  Specialize later.
+  (target-arch-case
+   (:x8632
+    (return-from nx1-%aset2 (nx1-treat-as-call whole))))
+
   (let* ((arch (backend-target-arch *target-backend*))
          (ctype (specifier-type (nx-form-type arr env)))
@@ -923 +938 @@
 
 (defnx1 nx1-%aset3 ((%aset3)) (&whole whole &environment env arr i j k new)
+  ;; Bleah.  Breaks modularity.  Specialize later.
+  (target-arch-case
+   (:x8632
+    (return-from nx1-%aset3 (nx1-treat-as-call whole))))
+
   (let* ((arch (backend-target-arch *target-backend*))
          (ctype (specifier-type (nx-form-type arr env)))