Changeset 13642


Ignore:
Timestamp:
Apr 18, 2010, 11:21:14 AM (10 years ago)
Author:
gb
Message:

Fix win32 typos.

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

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/platform-win32.h

    r13638 r13642  
    4141#define xpMXCSRptr(x) (DWORD *)(&(x->ExtendedRegisters[24]))
    4242
    43 #ifdef SOLARIS
    44 #define SIGNUM_FOR_INTN_TRAP SIGSEGV
    45 #ifdef X8664
    46 #define IS_MAYBE_INT_TRAP(info,xp) ((xpGPR(xp,REG_TRAPNO)==0xd)&&((xpGPR(xp,REG_ERR)&7)==2))
    47 #define IS_PAGE_FAULT(info,xp) (xpGPR(xp,REG_TRAPNO)==0xe)
    48 #else
    49 #define IS_MAYBE_INT_TRAP(info,xp) ((xpGPR(xp,TRAPNO)==0xd)&&((xpGPR(xp,ERR)&7)==2))
    50 #define IS_PAGE_FAULT(info,xp) (xpGPR(xp,TRAPNO)==0xe)
    51 #endif
    52 #define SIGRETURN(context) setcontext(context)
    53 #endif
     43#define SIGNUM_FOR_INTN_TRAP SIGSEGV /* Also fake */
     44#define IS_MAYBE_INT_TRAP(info,xp) \
     45  ((info->ExceptionCode == EXCEPTION_ACCESS_VIOLATION) &&       \
     46   (info->ExceptionInformation[0]==0) &&                       \
     47   (info->ExceptionInformation[1]==(ULONG_PTR)(-1L)))
     48#define IS_PAGE_FAULT(info,xp) (1)
     49#define SIGRETURN(context)      /* for now */
    5450
    5551#include "os-windows.h"
  • trunk/source/lisp-kernel/win32/Makefile

    r13638 r13642  
    7575        lisp-exceptions.h lisp_globals.h macros.h memprotect.h image.h \
    7676        Threads.h x86-constants32.h x86-exceptions.h lisptypes.h \
    77         $(PLATFORM_H) constsnts.h os-windows.h
     77        $(PLATFORM_H) constants.h os-windows.h
    7878
    7979
Note: See TracChangeset for help on using the changeset viewer.