From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 16 Jan 1995 20:58:18 +0000 (+0000)
Subject: Change SELECT-DESCRIPTOR to return process-status flag when
X-Git-Tag: 20090517-FFI~6732
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a3afef212b2770cb7decb17703ffb15be97c00df;p=mit-scheme.git

Change SELECT-DESCRIPTOR to return process-status flag when
appropriate.
---

diff --git a/v7/src/microcode/pros2io.c b/v7/src/microcode/pros2io.c
index 562352462..9f9e345d9 100644
--- a/v7/src/microcode/pros2io.c
+++ b/v7/src/microcode/pros2io.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: pros2io.c,v 1.2 1995/01/05 23:47:02 cph Exp $
+$Id: pros2io.c,v 1.3 1995/01/16 20:58:18 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -76,7 +76,10 @@ DEFINE_PRIMITIVE ("OS2-SELECT-DESCRIPTOR", Prim_OS2_select_descriptor, 2, 2, 0)
     case mat_not_available:
       PRIMITIVE_RETURN (LONG_TO_UNSIGNED_FIXNUM (1));
     case mat_interrupt:
-      PRIMITIVE_RETURN (LONG_TO_UNSIGNED_FIXNUM (2));
+      if (OS2_process_any_status_change ())
+	PRIMITIVE_RETURN (LONG_TO_UNSIGNED_FIXNUM (3));
+      else
+	PRIMITIVE_RETURN (LONG_TO_UNSIGNED_FIXNUM (2));
     default:
       error_external_return ();
       PRIMITIVE_RETURN (UNSPECIFIC);