Changeset 7331


Ignore:
Timestamp:
Oct 1, 2007, 8:01:34 PM (12 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/nx1.lisp

    r6175 r7331  
    795795
    796796(defnx1 nx1-%aref2 ((%aref2)) (&whole whole &environment env arr i j)
     797  ;; Bleah.  Breaks modularity.  Specialize later.
     798  (target-arch-case
     799   (:x8632
     800    (return-from nx1-%aref2 (nx1-treat-as-call whole))))
     801
    797802  (let* ((arch (backend-target-arch *target-backend*))
    798803         (ctype (specifier-type (nx-form-type arr env)))
     
    822827
    823828(defnx1 nx1-%aref3 ((%aref3)) (&whole whole &environment env arr i j k)
     829  ;; Bleah.  Breaks modularity.  Specialize later.
     830  (target-arch-case
     831   (:x8632
     832    (return-from nx1-%aref3 (nx1-treat-as-call whole))))
     833
    824834  (let* ((arch (backend-target-arch *target-backend*))
    825835         (ctype (specifier-type (nx-form-type arr env)))
     
    893903           
    894904(defnx1 nx1-%aset2 ((%aset2)) (&whole whole &environment env arr i j new)
     905  ;; Bleah.  Breaks modularity.  Specialize later.
     906  (target-arch-case
     907   (:x8632
     908    (return-from nx1-%aset2 (nx1-treat-as-call whole))))
     909
    895910  (let* ((arch (backend-target-arch *target-backend*))
    896911         (ctype (specifier-type (nx-form-type arr env)))
     
    923938
    924939(defnx1 nx1-%aset3 ((%aset3)) (&whole whole &environment env arr i j k new)
     940  ;; Bleah.  Breaks modularity.  Specialize later.
     941  (target-arch-case
     942   (:x8632
     943    (return-from nx1-%aset3 (nx1-treat-as-call whole))))
     944
    925945  (let* ((arch (backend-target-arch *target-backend*))
    926946         (ctype (specifier-type (nx-form-type arr env)))
Note: See TracChangeset for help on using the changeset viewer.