Changeset 10584


Ignore:
Timestamp:
Aug 31, 2008, 8:37:47 AM (11 years ago)
Author:
gb
Message:

Add Win32 xp accessors, other win32 stuff.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/x86-exceptions.h

    r10565 r10584  
    8686#endif
    8787
    88 #ifdef WIN64
     88#ifdef WINDOWS
     89#ifdef X8664
    8990#define xpGPRvector(x) ((DWORD64 *)(&(x)->Rax))
    9091#define xpGPR(x,gprno) (xpGPRvector(x)[gprno])
    9192#define xpPC(x) xpGPR(x,Iip)
    9293#define eflags_register(xp) xp->EFlags
     94#else
     95#define xpGPRvector(x) ((DWORD *)(&(x)->Edi))
     96#define xpGPR(x,gprno) (xpGPRvector(x)[gprno])
     97#define xpPC(x) xpGPR(x,Iip)
     98#define eflags_register(xp) xp->EFlags
     99#define xpFPRvector(x) ((natural *)(&(x->ExtendedRegisters[10*16])))
     100#define xpMMXreg(x,n)  (xpFPRvector(x)[n])
     101#endif
    93102#endif
    94103
     
    107116#ifdef WINDOWS
    108117#define SIGNAL_FOR_PROCESS_INTERRUPT SIGINT
    109 #endif
     118#ifndef SIGBUS
     119#define SIGBUS 10
     120#endif
     121#ifndef CONTEXT_ALL
     122#define CONTEXT_ALL (CONTEXT_CONTROL | CONTEXT_INTEGER | CONTEXT_SEGMENTS | CONTEXT_FLOATING_POINT | CONTEXT_DEBUG_REGISTERS | CONTEXT_EXTENDED_REGISTERS)
     123#endif
     124#endif
     125
    110126
    111127
Note: See TracChangeset for help on using the changeset viewer.