Changeset 7034 for branches

Timestamp:

Aug 12, 2007, 3:38:07 PM (17 years ago)

Author:

Gary Byers

Message:

Handle deferred suspend interrupts.

File:

• branches/working-0708/lisp-kernel/ppc-exceptions.c (modified) (2 diffs)

branches/working-0708/lisp-kernel/ppc-exceptions.c

@@ -1331 +1331 @@
 
   case UUO_INTERR:
-    status = handle_error(xp, errnum, rb, 0,  where);
+    if (errnum == error_propagate_suspend) {
+      status = 0;
+    } else {
+      status = handle_error(xp, errnum, rb, 0,  where);
+    }
     break;
 
@@ -1763 +1767 @@
     old_valence = prepare_to_wait_for_exception_lock(tcr, context);
   }
+
+  if (tcr->flags & (1<<TCR_FLAG_BIT_PENDING_SUSPEND)) {
+    CLR_TCR_FLAG(tcr, TCR_FLAG_BIT_PENDING_SUSPEND);
+    pthread_kill(pthread_self(), thread_suspend_signal);
+  }
+
   
   wait_for_exception_lock_in_handler(tcr, context, &xframe_link);