Changeset 647

Timestamp:

Mar 8, 2004, 6:02:40 AM (21 years ago)

Author:

Gary Byers

Message:

Fix MACH_CHECK_ERROR.

File:

• trunk/ccl/lisp-kernel/lisp-exceptions.c (modified) (2 diffs)

trunk/ccl/lisp-kernel/lisp-exceptions.c

@@ -2194 +2194 @@
 #include <mach/machine/thread_status.h>
 
-#define MACH_CHECK_ERROR(context,x) if (x != KERN_SUCCESS) {Bug(NULL, "Mach error while %s : ~d", context, x);}
+void
+fatal_mach_error(format, ...);
+
+#define MACH_CHECK_ERROR(context,x) if (x != KERN_SUCCESS) {fatal_mach_error("Mach error while %s : ~d", context, x);}
 
 
@@ -2738 +2741 @@
 }
 
-
-#endif
+void
+fatal_mach_error(char *format, ...)
+{
+  va_list args;
+  char s[512];
+ 
+
+  va_start(args, format);
+  vsnprintf(s, sizeof(s),format, args);
+  va_end(args);
+
+  Fatal("Mach error", s);
+}
+
+#endif