Changeset 8162

Timestamp:

Jan 17, 2008, 6:58:18 AM (17 years ago)

Author:

Gary Byers

Message:

RME's fixes to multi-arg aref/aset functions.

File:

• branches/1.2/devel/source/level-0/X86/x86-array.lisp (modified) (1 diff)

branches/1.2/devel/source/level-0/X86/x86-array.lisp

@@ -372 +372 @@
   (jmp-subprim .SParef2))
 
-(defx86lapfunction %aref3 ((array 0) (i arg_x) (j arg_y) (k arg_z))
+(defx86lapfunction %aref3 ((array 8) #|(ra 0)|# (i arg_x) (j arg_y) (k arg_z))
   (check-nargs 4)
+  (pop (% ra0))
   (pop (% temp0))
   (discard-reserved-frame)
+  (push (% ra0))
   (jmp-subprim .SParef3))
 
-(defx86lapfunction %aset2 ((array 0) (i arg_x) (j arg_y) (newval arg_z))
+(defx86lapfunction %aset2 ((array 8) #|(ra 0)|# (i arg_x) (j arg_y) (newval arg_z))
   (check-nargs 4)
+  (pop (% ra0))
   (pop (% temp0))
   (discard-reserved-frame)
+  (push (% ra0))
   (jmp-subprim .SPaset2))
 
-(defx86lapfunction %aset3 ((array 8) (i 0) (j arg_x) (k arg_y) (newval arg_z))
+(defx86lapfunction %aset3 ((array 16) (i 8) #|(ra 0)|# (j arg_x) (k arg_y) (newval arg_z))
   (check-nargs 5)
+  (pop (% ra0))
   (pop (% temp0))
   (pop (% temp1))
   (discard-reserved-frame)
+  (push (% ra0))
   (jmp-subprim .SPaset3))
 
-
-
-
-
-  
-