Changeset 9158


Ignore:
Timestamp:
Apr 15, 2008, 5:01:44 AM (12 years ago)
Author:
rme
Message:

%small-set-slot-id-value, %large-set-slot-id-value: be sure to reference
the constants in the order that %clone-x86-function supplies them.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/X86/X8632/x8632-clos.lisp

    r9125 r9158  
    9797  (testl (% imm0) (% imm0))
    9898  (je @missing)
     99  (movl (@ 'table (% fn)) (% temp0))
     100  (movl (@ x8632::misc-data-offset (% temp0) (% imm0) 4) (% arg_y))
    99101  (popl (% temp0))                      ;return address
    100102  (popl (% temp1))                      ;instance
     103  ;; use existing frame
    101104  (pushl (@ 'class (% fn)))
    102105  (pushl (% temp1))
    103106  (pushl (% temp0))
    104   (movl (@ 'table (% fn)) (% temp0))
    105   (movl (@ x8632::misc-data-offset (% temp0) (% imm0) 4) (% arg_y))
    106107  (set-nargs 4)
    107108  ;; (%maybe-std-setf-slot-value-using-class class instance slotd new)
     
    125126  (testl (%l imm0) (%l imm0))
    126127  (je @missing)
     128  (movl (@ 'table (% fn)) (% temp0))
     129  (movl (@ x8632::misc-data-offset (% temp0) (% imm0) 4) (% arg_y))
    127130  (popl (% temp0))                      ;return addr
    128131  (popl (% temp1))                      ;instance
     
    130133  (pushl (% temp1))
    131134  (pushl (% temp0))
    132   (movl (@ 'table (% fn)) (% temp0))
    133   (movl (@ x8632::misc-data-offset (% temp0) (% imm0) 4) (% arg_y))
    134135  (set-nargs 4)
    135136  (jmp (@ '%maybe-std-setf-slot-value-using-class (% fn)))
     
    207208  (call-subprim .SPheap-rest-arg)
    208209  (pop (% arg_z))
    209   (pop (% ra0))
    210210  (pushl ($ x8632::reserved-frame-marker))
    211211  (pushl ($ x8632::reserved-frame-marker))
    212212  (pushl ($ '#.$XNOFINFUNCTION))
    213213  (movl (% fn) (% arg_y))
    214   (push (% ra0))
    215214  (set-nargs 3)
    216215  (call-subprim .SPksignalerr)
Note: See TracChangeset for help on using the changeset viewer.