Changeset 10176


Ignore:
Timestamp:
Jul 21, 2008, 9:20:58 PM (11 years ago)
Author:
rme
Message:

ff-call and syscall for x8632. Also aref/aset hackery for x8632.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx1.lisp

    r10047 r10176  
    805805
    806806(defnx1 nx1-%aref2 ((%aref2)) (&whole whole &environment env arr i j)
     807  ;; Bleah.  Breaks modularity.  Specialize later.
     808  (target-arch-case
     809   (:x8632
     810    (return-from nx1-%aref2 (nx1-treat-as-call whole))))
     811
    807812  (let* ((arch (backend-target-arch *target-backend*))
    808813         (ctype (specifier-type (nx-form-type arr env)))
     
    832837
    833838(defnx1 nx1-%aref3 ((%aref3)) (&whole whole &environment env arr i j k)
     839  ;; Bleah.  Breaks modularity.  Specialize later.
     840  (target-arch-case
     841   (:x8632
     842    (return-from nx1-%aref3 (nx1-treat-as-call whole))))
     843
    834844  (let* ((arch (backend-target-arch *target-backend*))
    835845         (ctype (specifier-type (nx-form-type arr env)))
     
    903913           
    904914(defnx1 nx1-%aset2 ((%aset2)) (&whole whole &environment env arr i j new)
     915  ;; Bleah.  Breaks modularity.  Specialize later.
     916  (target-arch-case
     917   (:x8632
     918    (return-from nx1-%aset2 (nx1-treat-as-call whole))))
     919
    905920  (let* ((arch (backend-target-arch *target-backend*))
    906921         (ctype (specifier-type (nx-form-type arr env)))
     
    933948
    934949(defnx1 nx1-%aset3 ((%aset3)) (&whole whole &environment env arr i j k new)
     950  ;; Bleah.  Breaks modularity.  Specialize later.
     951  (target-arch-case
     952   (:x8632
     953    (return-from nx1-%aset3 (nx1-treat-as-call whole))))
     954
    935955  (let* ((arch (backend-target-arch *target-backend*))
    936956         (ctype (specifier-type (nx-form-type arr env)))
     
    13281348      (:linuxppc32 (%nx1-operator eabi-ff-call))
    13291349      ((:darwinppc32 :linuxppc64 :darwinppc64) (%nx1-operator poweropen-ff-call))
     1350      (:darwinx8632 (%nx1-operator i386-ff-call))
    13301351      ((:linuxx8664 :freebsdx8664 :darwinx8664 :solarisx8664) (%nx1-operator ff-call)))))
    13311352
     
    13481369             ((:darwinppc32 :darwinppc64 :linuxppc64)
    13491370              (%nx1-operator poweropen-syscall))
     1371             (:darwinx8632 (%nx1-operator i386-syscall))
    13501372             ((:linuxx8664 :freebsdx8664 :darwinx8664 :solarisx8664) (%nx1-operator syscall))))))
    13511373
Note: See TracChangeset for help on using the changeset viewer.