Changeset 9664 for branches

Timestamp:

Jun 3, 2008, 10:34:17 AM (16 years ago)

Author:

andreas

Message:

Ignore debug message printing trap.

File:

• branches/win64/lisp-kernel/x86-exceptions.c (modified) (3 diffs)

branches/win64/lisp-kernel/x86-exceptions.c

@@ -38 +38 @@
 #include <sys/syslog.h>
 #endif
-
+#ifdef WINDOWS
+#include <windows.h>
+#include <winternl.h>
+#include <ntstatus.h>
+#endif
 
 int
@@ -944 +948 @@
     return handle_fault(tcr, context, info, old_valence);
 #endif    
-    
+
+#ifdef WINDOWS
+  case DBG_PRINTEXCEPTION_C:
+    // Somebody is trying to write debug output.  Ignore for now.
+    // FIXME: pass as condition to Lisp
+    return true;
+#endif
+
   default:
     return false;
@@ -1506 +1517 @@
   case EXCEPTION_IN_PAGE_ERROR:
     return SIGBUS;
+  case DBG_PRINTEXCEPTION_C:
+    return DBG_PRINTEXCEPTION_C;
   default:
     return -1;