Changeset 10273


Ignore:
Timestamp:
Aug 2, 2008, 2:02:00 AM (11 years ago)
Author:
rme
Message:

Define csp_frame struct. Use it in a few places, also saving the
frame pointer therein.

Location:
trunk/source/lisp-kernel
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/x86-constants32.s

    r10250 r10273  
    245245
    246246        _struct(tsp_frame,0)
     247         _node(backlink)
     248         _node(save_ebp)
     249         _struct_label(fixed_overhead)
     250         _struct_label(data_offset)
     251        _ends
     252
     253        _struct(csp_frame,0)
    247254         _node(backlink)
    248255         _node(save_ebp)
  • trunk/source/lisp-kernel/x86-spentry32.s

    r10261 r10273  
    19571957        __(jnz 0b)
    19581958        __(movd %stack_temp,(%temp0))
    1959         __(movd %mm0,tsp_frame.fixed_overhead(%temp0))
    1960         __(lea tsp_frame.fixed_overhead+fulltag_misc(%temp0),%arg_z)
     1959        __(movl %ebp,csp_frame.save_ebp(%temp0))
     1960        __(movd %mm0,csp_frame.fixed_overhead(%temp0))
     1961        __(lea csp_frame.fixed_overhead+fulltag_misc(%temp0),%arg_z)
    19611962        __(ret)
    19621963local_label(stack_misc_alloc_heap_alloc_ivector):
     
    26502651        __(movl rcontext(tcr.foreign_sp),%arg_z)
    26512652        __(movd %mm0,(%arg_z))
     2653        __(movl %ebp,csp_frame.save_ebp(%arg_z))
    26522654        __(lea macptr.size+tsp_frame.fixed_overhead(%arg_z),%imm0)
    26532655        __(movl $macptr_header,tsp_frame.fixed_overhead(%arg_z))
     
    26612663        __(movl rcontext(tcr.foreign_sp),%imm0)
    26622664        __(movd %mm0,(%imm0))
     2665        __(movl %ebp,csp_frame.save_ebp(%imm0))
    26632666        __(set_nargs(1))
    26642667        __(movl $nrs.new_gcable_ptr,%fname)
     
    26752678        __(movl rcontext(tcr.foreign_sp),%arg_z)
    26762679        __(movl %temp0,(%arg_z))
     2680        __(movl %ebp,csp_frame.save_ebp(%arg_z))
    26772681        __(lea macptr.size+tsp_frame.fixed_overhead(%arg_z),%imm0)
    26782682        __(movl $macptr_header,tsp_frame.fixed_overhead(%arg_z))
     
    26912695        __(movl rcontext(tcr.foreign_sp),%imm0)
    26922696        __(movd %mm0,(%imm0))
     2697        __(movl %ebp,csp_frame.save_ebp(%imm0))
    26932698        __(set_nargs(1))
    26942699        __(movl $nrs.new_gcable_ptr,%fname)
Note: See TracChangeset for help on using the changeset viewer.