Changeset 8162


Ignore:
Timestamp:
Jan 17, 2008, 2:58:18 PM (12 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.2/devel/source/level-0/X86/x86-array.lisp

    r7847 r8162  
    372372  (jmp-subprim .SParef2))
    373373
    374 (defx86lapfunction %aref3 ((array 0) (i arg_x) (j arg_y) (k arg_z))
     374(defx86lapfunction %aref3 ((array 8) #|(ra 0)|# (i arg_x) (j arg_y) (k arg_z))
    375375  (check-nargs 4)
     376  (pop (% ra0))
    376377  (pop (% temp0))
    377378  (discard-reserved-frame)
     379  (push (% ra0))
    378380  (jmp-subprim .SParef3))
    379381
    380 (defx86lapfunction %aset2 ((array 0) (i arg_x) (j arg_y) (newval arg_z))
     382(defx86lapfunction %aset2 ((array 8) #|(ra 0)|# (i arg_x) (j arg_y) (newval arg_z))
    381383  (check-nargs 4)
     384  (pop (% ra0))
    382385  (pop (% temp0))
    383386  (discard-reserved-frame)
     387  (push (% ra0))
    384388  (jmp-subprim .SPaset2))
    385389
    386 (defx86lapfunction %aset3 ((array 8) (i 0) (j arg_x) (k arg_y) (newval arg_z))
     390(defx86lapfunction %aset3 ((array 16) (i 8) #|(ra 0)|# (j arg_x) (k arg_y) (newval arg_z))
    387391  (check-nargs 5)
     392  (pop (% ra0))
    388393  (pop (% temp0))
    389394  (pop (% temp1))
    390395  (discard-reserved-frame)
     396  (push (% ra0))
    391397  (jmp-subprim .SPaset3))
    392398
    393 
    394 
    395 
    396 
    397  
    398 
Note: See TracChangeset for help on using the changeset viewer.