Changeset 5489

Timestamp:

Nov 5, 2006, 6:52:16 AM (18 years ago)

Author:

Gary Byers

Message:

%AREF2, %ASET2 in x8664 lap.

File:

• trunk/ccl/level-0/X86/x86-array.lisp (modified) (1 diff)

trunk/ccl/level-0/X86/x86-array.lisp

@@ -229 +229 @@
       (funcall f i b1 b2 result))))
 
-       
+(defx86lapfunction %aref2 ((array arg_x) (i arg_y) (j arg_z))
+  (check-nargs 3)
+  (jmp-subprim .SParef2))
+
+(defx86lapfunction %aset2 ((array 0) (i arg_x) (j arg_y) (newval arg_z))
+  (check-nargs 4)
+  (pop (% temp0))
+  (discard-reserved-frame)
+  (jmp-subprim .SPaset2))
+
+