Changeset 9673


Ignore:
Timestamp:
Jun 5, 2008, 4:41:08 PM (11 years ago)
Author:
rme
Message:

Replace placeholders of %aref2, %aref3, %aset2, and %aset3.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/X86/X8632/x8632-array.lisp

    r7910 r9673  
    195195      (funcall f i b1 b2 result))))
    196196
    197 ;;; placeholders for future specialized versions
    198 
    199 (defun %aref2 (array i j)
    200   (declare (notinline aref))            ;fend off compiler macro
    201   (aref array i j))
    202 
    203 (defun %aref3 (array i j k)
    204   (declare (notinline aref))
    205   (aref array i j k))
    206 
    207 (defun %aset2 (array i j newval)
    208   (declare (notinline aset))
    209   (aset array i j newval))
    210 
    211 (defun %aset3 (array i j k newval)
    212   (declare (notinline aset))
    213   (aset array i j k newval))
    214 
     197(defx8632lapfunction %aref2 ((array 4) #|(ra 0)|# (i arg_y) (j arg_z))
     198  (check-nargs 3)
     199  (popl (@ 8 (% esp)))                  ;ra to first word of reserved frame
     200  (pop (% temp0))
     201  (addl ($ '1) (% esp))                 ;discard other word of reserved frame
     202  (jmp-subprim .SParef2))
     203
     204(defx8632lapfunction %aref3 ((array 8) (i 4) #|(ra 0)|# (j arg_y) (k arg_z))
     205  (check-nargs 4)
     206  (popl (@ 12 (% esp)))
     207  (pop (% temp0))
     208  (pop (% temp1))
     209  (addl ($ '1) (% esp))
     210  (jmp-subprim .SParef3))
     211
     212(defx8632lapfunction %aset2 ((array 8) (i 4) #|(ra 0)|# (j arg_y) (newval arg_z))
     213  (check-nargs 4)
     214  (popl (@ 12 (% esp)))
     215  (pop (% temp0))
     216  (pop (% temp1))
     217  (addl ($ '1) (% esp))
     218  (jmp-subprim .SPaset2))
     219
     220(defx8632lapfunction %aset3 ((array 12) (i 8) (j 4) #|(ra 0)|# (j arg_y) (newval arg_z))
     221  (check-nargs 5)
     222  (popl (@ 16 (% esp)))
     223  (pop (% temp0))
     224  (pop (% imm0))
     225  (pop (% temp1))
     226  (addl ($ '1) (% esp))
     227  (jmp-subprim .SPaset3))
     228
Note: See TracChangeset for help on using the changeset viewer.