Changeset 8602


Ignore:
Timestamp:
Feb 25, 2008, 4:08:01 PM (12 years ago)
Author:
andreas
Message:

Convert start_lisp to platform-independent registers.

File:
1 edited

Legend:

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

    r8562 r8602  
    8787        __(push %rbp)
    8888        __(movq %rsp,%rbp)
    89         __(push %rbx)
    90         __(push %r12)
    91         __(push %r13)
    92         __(push %r14)
    93         __(push %r15)
     89        __(push %csave0)
     90        __(push %csave1)
     91        __(push %csave2)
     92        __(push %csave3)
     93        __(push %csave4)
     94        __ifdef([WINDOWS])
     95        __(push %csave5)
     96        __(push %csave6)
     97        /* FIXME: set up %rcontext_reg a.k.a. r11 */
     98        __endif
    9499        __ifdef([DARWIN_GS_HACK])
    95100         __(set_gs_base())
     
    108113        __(clr %save1)
    109114        __(clr %save2)
     115        __ifndef([WINDOWS]) /* no %save3, r11 is %rcontext_reg */
    110116        __(clr %save3)
     117        __endif
    111118        __(pxor %fpzero,%fpzero)        /* fpzero = 0.0[d0] */
    112119        __(stmxcsr rcontext(tcr.foreign_mxcsr))
     
    118125        __(emms)
    119126        __(addq $8,%rsp)        /* discard alignment word */
    120         __(pop %r15)
    121         __(pop %r14)
    122         __(pop %r13)
    123         __(pop %r12)
    124         __(pop %rbx)
     127        __ifdef([WINDOWS])
     128        __(pop %csave6)
     129        __(pop %csave5)
     130        __endif
     131        __(pop %csave4)
     132        __(pop %csave3)
     133        __(pop %csave2)
     134        __(pop %csave1)
     135        __(pop %csave0)
    125136        __(ldmxcsr rcontext(tcr.foreign_mxcsr))
    126137        __ifdef([DARWIN_GS_HACK])
Note: See TracChangeset for help on using the changeset viewer.