Ignore:
Timestamp:
Sep 26, 2008, 2:01:53 PM (11 years ago)
Author:
gb
Message:

Ensure that EXCEPTION_WRITE_FAULT is defined on 32-bit Windows.

Use the new format-string convention.

File:
1 edited

Legend:

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

    r10832 r10891  
    4343#include <winternl.h>
    4444#include <ntstatus.h>
     45#endif
     46#ifndef EXCEPTION_WRITE_FAULT
     47#define EXCEPTION_WRITE_FAULT 1
    4548#endif
    4649#endif
     
    11441147  LOCK(lisp_global(EXCEPTION_LOCK), tcr);
    11451148#if 0
    1146   fprintf(stderr, "0x%x has exception lock\n", tcr);
     1149  fprintf(stderr, "0x" LISP " has exception lock\n", tcr);
    11471150#endif
    11481151  xf->curr = context;
     
    11671170  UNLOCK(lisp_global(EXCEPTION_LOCK),tcr);
    11681171#if 0
    1169   fprintf(stderr, "0x%x released exception lock\n", tcr);
     1172  fprintf(stderr, "0x" LISP " released exception lock\n", tcr);
    11701173#endif
    11711174}
     
    12321235    Boolean foreign = (old_valence != TCR_STATE_LISP);
    12331236
    1234     snprintf(msg, sizeof(msg), "Unhandled exception %d at 0x%lx, context->regs at #x%lx", signum, xpPC(context), (natural)xpGPRvector(context));
     1237    snprintf(msg, sizeof(msg), "Unhandled exception %d at 0x" LISP ", context->regs at #x" LISP "", signum, xpPC(context), (natural)xpGPRvector(context));
    12351238   
    12361239    if (lisp_Debugger(context, info, signum,  foreign, msg)) {
     
    17991802}
    18001803
    1801 LONG
     1804LONG CALLBACK
    18021805windows_arbstack_exception_handler(EXCEPTION_POINTERS *exception_pointers)
    18031806{
     
    22522255        ((state == ID_set_allocptr_header_instruction) &&
    22532256         (allocptr_tag != fulltag_misc))) {
    2254       Bug(xp, "Can't determine state of thread 0x%lx, interrupted during memory allocation", tcr);
     2257      Bug(xp, "Can't determine state of thread 0x" LISP ", interrupted during memory allocation", tcr);
    22552258    }
    22562259    switch(state) {
     
    25682571
    25692572#if 0
    2570   fprintf(stderr, "Start GC  in 0x%lx\n", tcr);
     2573  fprintf(stderr, "Start GC  in 0x" LISP "\n", tcr);
    25712574#endif
    25722575  a = active_dynamic_area;
     
    25772580  newend = a->high;
    25782581#if 0
    2579   fprintf(stderr, "End GC  in 0x%lx\n", tcr);
     2582  fprintf(stderr, "End GC  in 0x" LISP "\n", tcr);
    25802583#endif
    25812584  return ((oldfree-newfree)+(newend-oldend));
Note: See TracChangeset for help on using the changeset viewer.