Changeset 5481

Timestamp:

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

Author:

Gary Byers

Message:

%AREF2, %ASET2: in LAP, just call into the kernel.

File:

• trunk/ccl/level-0/PPC/ppc-array.lisp (modified) (1 diff)

trunk/ccl/level-0/PPC/ppc-array.lisp

@@ -824 +824 @@
 
 
-
+(defppclapfunction %aref2 ((array arg_x) (i arg_y) (j arg_z))
+  (check-nargs 3)
+  (ba .SParef2))
+
+
+(defppclapfunction %aset2 ((array 0) (i arg_x) (j arg_y) (newval arg_z))
+  (check-nargs 4)
+  (vpop temp0)
+  (ba .SPaset2))