Changeset 14008


Ignore:
Timestamp:
Jul 21, 2010, 10:38:51 AM (9 years ago)
Author:
gb
Message:

.SPadd_values and .SPrecover_values weren't finding forward/backward
links between saved value sets, so define and use symbolic names for
those links.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/lisp-kernel/arm-spentry.s

    r14000 r14008  
    17921792/* vpush the values in the value set atop the stack, incrementing nargs.  */
    17931793
     1794define(`mvcall_older_value_set',`node_size')
     1795define(`mvcall_younger_value_set',`node_size+4')
     1796       
    17941797
    17951798_spentry(recover_values)
     
    17971800        /* Find the oldest set of values by walking links from the newest */
    179818010:             
    1799         __(ldr temp1,[temp0,#node_size+4])
     1802        __(ldr temp1,[temp0,#mvcall_older_value_set])
    18001803        __(cmp temp1,#0)
    18011804        __(movne temp0,temp1)
     
    18121815        __(add nargs,nargs,#fixnumone)
    181318163:      __(bne 2b)
    1814         __(ldr temp0,[temp0,#node_size+4])
     1817        __(ldr temp0,[temp0,#mvcall_younger_value_set])
    18151818        __(cmp temp0,#0)
    18161819        __(bne 1b)
     
    19471950        __(bx lr)
    19481951
     1952                     
    19491953_spentry(save_values)
    19501954        __(mov temp1,#0)
     
    19621966        __(mov temp0,sp)
    19631967        __(stmdb sp!,{arg_y,arg_x})
    1964         __(str temp1,[temp0,#node_size])
    1965         __(strne temp0,[temp1,#node_size+4])
     1968        __(str temp1,[temp0,#mvcall_older_value_set])
     1969        __(strne temp0,[temp1,#mvcall_younger_value_set])
    19661970        __(add temp0,temp0,#node_size+8)
    19671971        __(mov imm0,#0)
Note: See TracChangeset for help on using the changeset viewer.