Changeset 10098


Ignore:
Timestamp:
Jul 18, 2008, 7:37:52 PM (11 years ago)
Author:
rme
Message:

New files for x8632.

Location:
trunk/source/lisp-kernel
Files:
3 copied

Legend:

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

    r10076 r10098  
    4545        define([Rfn],[7])
    4646
    47 define([rcontext],[fs])
     47define([rcontext_reg],[fs])
     48define([rcontext],[%rcontext_reg:$1])
     49
    4850define([fname],[temp0])
    4951define([allocptr],[temp0])
     
    244246        _struct(tsp_frame,0)
    245247         _node(backlink)
    246          _node(type)
     248         _node(save_ebp)
    247249         _struct_label(fixed_overhead)
    248250         _struct_label(data_offset)
  • trunk/source/lisp-kernel/x86-subprims32.s

    r10076 r10098  
    1919        __(movl %esp,%ebp)
    2020        /* Switch to the lisp stack */
    21         __(movl %esp,%rcontext:tcr.foreign_sp)
    22         __(movl %rcontext:tcr.save_vsp,%esp)
     21        __(movl %esp,rcontext(tcr.foreign_sp))
     22        __(movl rcontext(tcr.save_vsp),%esp)
    2323        __(push $0)
    2424        __(mov %esp,%ebp)
     
    4444        __(jnz local_label(loop))
    4545local_label(back_to_c):
    46         __(movl %rcontext:tcr.foreign_sp,%esp)
     46        __(movl rcontext(tcr.foreign_sp),%esp)
    4747        __(movl %esp,%ebp)
    4848        __(leave)
     
    6666        __(push %ebx)
    6767        __(mov 8(%ebp), %ebx)   /* get tcr */
    68         __(movw tcr.ldt_selector(%ebx), %rcontext)
     68        __(movw tcr.ldt_selector(%ebx), %rcontext_reg)
    6969        __(sub $12, %esp)       /* stack now 16-byte aligned */
    7070        __(clr %arg_z)
     
    7474        __(clr %fn)
    7575        __(pxor %fpzero, %fpzero)
    76         __(stmxcsr %rcontext:tcr.foreign_mxcsr)
    77         __(andb $~mxcsr_all_exceptions,%rcontext:tcr.foreign_mxcsr)
    78         __(ldmxcsr %rcontext:tcr.lisp_mxcsr)
    79         __(movl $TCR_STATE_LISP, %rcontext:tcr.valence)
     76        __(stmxcsr rcontext(tcr.foreign_mxcsr))
     77        __(andb $~mxcsr_all_exceptions,rcontext(tcr.foreign_mxcsr))
     78        __(ldmxcsr rcontext(tcr.lisp_mxcsr))
     79        __(movl $TCR_STATE_LISP, rcontext(tcr.valence))
    8080        __(clr %imm0)
    8181        __(cmpl $0,_GCDebug)
     
    84841:
    8585        __(call toplevel_loop)
    86         __(movl $TCR_STATE_FOREIGN, %rcontext:tcr.valence)
     86        __(movl $TCR_STATE_FOREIGN, rcontext(tcr.valence))
    8787        __(emms)
    8888        __(add $12, %esp)       /* discard alignment space */
     
    9090        __(pop %esi)
    9191        __(pop %edi)
    92         __(ldmxcsr %rcontext:tcr.foreign_mxcsr)
     92        __(ldmxcsr rcontext(tcr.foreign_mxcsr))
    9393        __(movl $nil_value, %eax)
    9494        __(leave)
Note: See TracChangeset for help on using the changeset viewer.