Changeset 10915


Ignore:
Timestamp:
Sep 29, 2008, 8:27:24 AM (11 years ago)
Author:
gb
Message:

D'oh: rcontext_reg is %gs on Win32.
Define win32_context struct.

File:
1 edited

Legend:

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

    r10794 r10915  
    4646
    4747define([rcontext_reg],[fs])
     48       
     49        ifdef([WINDOWS],[
     50undefine([rcontext_reg])       
     51define([rcontext_reg],[gs])
     52        ])
     53               
    4854define([rcontext],[%rcontext_reg:$1])
    4955
     
    543549        _ends
    544550
     551        _struct(win32_context,0)
     552         _field(ContextFlags, 4)
     553         _field(Dr0, 4)
     554         _field(Dr1, 4)
     555         _field(Dr2, 4)
     556         _field(Dr3, 4)
     557         _field(Dr6, 4)
     558         _field(Dr7, 4)
     559         _struct_label(FloatSave)
     560         _field(ControlWord, 4);
     561         _field(StatusWord, 4)
     562         _field(TagWord, 4)
     563         _field(ErrorOffset, 4)
     564         _field(ErrorSelector, 4)
     565         _field(DataOffset, 4)
     566         _field(DataSelector, 4)
     567         _field(RegisterArea, 80)
     568         _field(Cr0NpxState, 4)
     569       
     570         _field(SegGs, 4)
     571         _field(SegFs, 4)
     572         _field(SegEs, 4)
     573         _field(SegDs, 4)
     574         _field(Edi, 4)
     575         _field(Esi, 4)
     576         _field(Ebx, 4)
     577         _field(Edx, 4)
     578         _field(Ecx, 4)
     579         _field(Eax, 4)
     580         _field(Ebp, 4)
     581         _field(Eip, 4)
     582         _field(SegCs, 4)
     583         _field(EFlags, 4)
     584         _field(Esp, 4)
     585         _field(SegSs, 4)
     586         _struct_label(ExtendedRegisters)
     587         _struct_pad(24)
     588         _field(MXCSR,4)
     589         _struct_pad(136) /* (- 160 28) */
     590         _field(Xmm0,16)
     591         _field(Xmm1,16)
     592         _field(Xmm2,16)
     593         _field(Xmm3,16)
     594         _field(Xmm4,16)
     595         _field(Xmm5,16)
     596         _field(Xmm6,16)
     597         _field(Xmm7,16)
     598         _struct_pad(224)
     599         _ends
     600       
    545601TCR_FLAG_BIT_FOREIGN = fixnum_shift
    546602TCR_FLAG_BIT_AWAITING_PRESET = (fixnum_shift+1)
Note: See TracChangeset for help on using the changeset viewer.