Changeset 647


Ignore:
Timestamp:
Mar 8, 2004, 2:02:40 PM (16 years ago)
Author:
gb
Message:

Fix MACH_CHECK_ERROR.

File:
1 edited

Legend:

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

    r621 r647  
    21942194#include <mach/machine/thread_status.h>
    21952195
    2196 #define MACH_CHECK_ERROR(context,x) if (x != KERN_SUCCESS) {Bug(NULL, "Mach error while %s : ~d", context, x);}
     2196void
     2197fatal_mach_error(format, ...);
     2198
     2199#define MACH_CHECK_ERROR(context,x) if (x != KERN_SUCCESS) {fatal_mach_error("Mach error while %s : ~d", context, x);}
    21972200
    21982201
     
    27382741}
    27392742
    2740 
    2741 #endif
     2743void
     2744fatal_mach_error(char *format, ...)
     2745{
     2746  va_list args;
     2747  char s[512];
     2748 
     2749
     2750  va_start(args, format);
     2751  vsnprintf(s, sizeof(s),format, args);
     2752  va_end(args);
     2753
     2754  Fatal("Mach error", s);
     2755}
     2756
     2757#endif
Note: See TracChangeset for help on using the changeset viewer.