Changeset 9673 for branches

Timestamp:

Jun 5, 2008, 9:41:08 AM (16 years ago)

Author:

R. Matthew Emerson

Message:

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

File:

• branches/ia32/level-0/X86/X8632/x8632-array.lisp (modified) (1 diff)

branches/ia32/level-0/X86/X8632/x8632-array.lisp

@@ -195 +195 @@
       (funcall f i b1 b2 result))))
 
-;;; placeholders for future specialized versions
-
-(defun %aref2 (array i j)
-  (declare (notinline aref))            ;fend off compiler macro
-  (aref array i j))
-
-(defun %aref3 (array i j k)
-  (declare (notinline aref))
-  (aref array i j k))
-
-(defun %aset2 (array i j newval)
-  (declare (notinline aset))
-  (aset array i j newval))
-
-(defun %aset3 (array i j k newval)
-  (declare (notinline aset))
-  (aset array i j k newval))
-
+(defx8632lapfunction %aref2 ((array 4) #|(ra 0)|# (i arg_y) (j arg_z))
+  (check-nargs 3)
+  (popl (@ 8 (% esp)))                  ;ra to first word of reserved frame
+  (pop (% temp0))
+  (addl ($ '1) (% esp))                 ;discard other word of reserved frame
+  (jmp-subprim .SParef2))
+
+(defx8632lapfunction %aref3 ((array 8) (i 4) #|(ra 0)|# (j arg_y) (k arg_z))
+  (check-nargs 4)
+  (popl (@ 12 (% esp)))
+  (pop (% temp0))
+  (pop (% temp1))
+  (addl ($ '1) (% esp))
+  (jmp-subprim .SParef3))
+
+(defx8632lapfunction %aset2 ((array 8) (i 4) #|(ra 0)|# (j arg_y) (newval arg_z))
+  (check-nargs 4)
+  (popl (@ 12 (% esp)))
+  (pop (% temp0))
+  (pop (% temp1))
+  (addl ($ '1) (% esp))
+  (jmp-subprim .SPaset2))
+
+(defx8632lapfunction %aset3 ((array 12) (i 8) (j 4) #|(ra 0)|# (j arg_y) (newval arg_z))
+  (check-nargs 5)
+  (popl (@ 16 (% esp)))
+  (pop (% temp0))
+  (pop (% imm0))
+  (pop (% temp1))
+  (addl ($ '1) (% esp))
+  (jmp-subprim .SPaset3))
+