GitLab

Duncan Coutts pushed to branch wip/dcoutts/io-manager-tidy at Glasgow Haskell Compiler / GHC

Commits:

c87c4aaa

by Duncan Coutts at 2026-07-17T10:41:43+01:00

Add interruptIOManager support for select I/O manager

Uses the FdWakup mechanism.

c26396b8

by Duncan Coutts at 2026-07-17T10:41:43+01:00

Add interruptIOManager support for poll I/O manager

Uses the FdWakup mechanism.

A quirk we have to cope with is that we now need to poll one more fd --
the wakeup_fd_r -- but this fd has no corresponding entry in the
aiop_table. This is awkward since we have set up our aiop_poll_table to
be an auxilliary table with matching indicies.

The solution this patch uses (and described in the comments) is to have
two tables: struct pollfd *aiop_poll_table, *full_poll_table;
and to have the aiop_poll_table alias the tail of the full_poll_table.
The head entry in the full_poll_table is the extra fd. So we poll the
full_poll_table, while the aiop_poll_table still has matching indicies
with the aiop_table.

Hurrah for C aliasing rules.

ad977d5e

by Duncan Coutts at 2026-07-17T10:41:43+01:00

Add interruptIOManager support for win32 legacy I/O manager

And remove unused related helper resetAbandonRequestWait. It is not
called because the event is created in auto-reset mode, so never needs
to be reset manually.

e632ccfb

by Duncan Coutts at 2026-07-17T10:41:43+01:00

Note lack of interruptIOManager support for WinIO I/O manager

Though there's a plausible design, we can't sanely test it at the moment
due to related WinIO bugs. Filed as issue #27403.

21d79c67

by Duncan Coutts at 2026-07-17T10:41:43+01:00

Be more explicit about enum IOReadOrWrite values, and type within cmm

Belt and braces.

Changes:

rts/IOManager.c

@@ -343,9 +343,7 @@ void initCapabilityIOManager(CapIOManager *iomgr)
      switch (iomgr_type) {
  #if defined(IOMGR_ENABLED_SELECT)
          case IO_MANAGER_SELECT:
 -            iomgr->blocked_queue_hd = END_TSO_QUEUE;
 -            iomgr->blocked_queue_tl = END_TSO_QUEUE;
 -            iomgr->sleeping_queue   = END_TSO_QUEUE;
 +            initCapabilityIOManagerSelect(iomgr);
              break;
  #endif
@@ -376,6 +374,12 @@ void initCapabilityIOManager(CapIOManager *iomgr)
  void freeCapabilityIOManager(CapIOManager *iomgr)
+ {
      switch (iomgr_type) {
 +#if defined(IOMGR_ENABLED_SELECT)
 +        case IO_MANAGER_SELECT:
 +            freeCapabilityIOManagerSelect(iomgr);
 +            break;
 +#endif
++
  #if defined(IOMGR_ENABLED_POLL)
          case IO_MANAGER_POLL:
              freeCapabilityIOManagerPoll(iomgr);
@@ -735,13 +739,13 @@ bool awaitCompletedTimeoutsOrIO(CapIOManager *iomgr)
      switch (iomgr_type) {
  #if defined(IOMGR_ENABLED_SELECT)
          case IO_MANAGER_SELECT:
 -          awaitCompletedTimeoutsOrIOSelect(iomgr, true);
 +          completed = awaitCompletedTimeoutsOrIOSelect(iomgr, true);
            break;
  #endif
  #if defined(IOMGR_ENABLED_POLL)
          case IO_MANAGER_POLL:
 -          awaitCompletedTimeoutsOrIOPoll(iomgr);
 +          completed = awaitCompletedTimeoutsOrIOPoll(iomgr);
            break;
  #endif
@@ -753,7 +757,7 @@ bool awaitCompletedTimeoutsOrIO(CapIOManager *iomgr)
  #if defined(IOMGR_ENABLED_WINIO)
          case IO_MANAGER_WINIO:
  #endif
 -          awaitCompletedTimeoutsOrIOWin32(iomgr->cap, true);
 +          completed = awaitCompletedTimeoutsOrIOWin32(iomgr->cap, true);
            break;
  #endif
          default:
@@ -774,6 +778,32 @@ void interruptIOManager(CapIOManager *iomgr)
      debugTrace(DEBUG_iomanager, "Interrupting the I/O manager...");
      switch (iomgr_type) {
 +#if defined(IOMGR_ENABLED_SELECT)
 +        case IO_MANAGER_SELECT:
 +            interruptIOManagerSelect(iomgr);
 +            break;
 +#endif
++
 +#if defined(IOMGR_ENABLED_POLL)
 +        case IO_MANAGER_POLL:
 +            interruptIOManagerPoll(iomgr);
 +            break;
 +#endif
++
 +#if defined(IOMGR_ENABLED_WIN32_LEGACY)
 +        case IO_MANAGER_WIN32_LEGACY:
 +            abandonRequestWait();
 +            break;
 +#endif
++
 +#if defined(IOMGR_ENABLED_WINIO)
 +        case IO_MANAGER_WINIO:
 +            /* FIXME: no support yet for interrupting in WinIO I/O manager
 +             * See issue #27403
 +             */
 +            break;
 +#endif
++
          default:
              break;
+     }

rts/IOManager.h

@@ -319,7 +319,7 @@ void scavengeTSOIOManager(StgTSO *tso);
  /* Several code paths are almost identical between read and write paths. In
   * such cases we use a shared code path with an enum to say which we're doing.
   */
 -typedef enum { IORead, IOWrite } IOReadOrWrite;
 +typedef enum { IORead = 0, IOWrite = 1 } IOReadOrWrite;
  /* Synchronous operations: I/O and delays. As synchronous operations they
   * necessarily operate on threads. The thread is suspended until the operation

rts/IOManagerInternals.h

@@ -46,6 +46,13 @@ struct _CapIOManager {
      StgTSO *sleeping_queue;
  #endif
 +#if defined(IOMGR_ENABLED_SELECT) || defined(IOMGR_ENABLED_POLL)
 +#if defined(HAVE_PREEMPTION)
 +    /* FDs for waking up the I/O manager when it is blocked waiting */
 +    int interrupt_fd_r, interrupt_fd_w;
 +#endif
 +#endif
++
  #if defined(IOMGR_ENABLED_POLL)
      /* AIOP and timeout collections shared by several I/O manager impls */
      ClosureTable     aiop_table;
@@ -53,8 +60,11 @@ struct _CapIOManager {
  #endif
  #if defined(IOMGR_ENABLED_POLL)
 -    /* Auxiliary table with size and indexes matching the aiop_table */
 -    struct pollfd *aiop_poll_table;
 +    /* Auxiliary table with size and indexes matching the aiop_table. This is
 +     * aliased to the tail of the full poll table, which has a head entry for
 +     * the wakeup_fd_r above, so we can also poll that fd.
 +     */
 +    struct pollfd *aiop_poll_table, *full_poll_table;
  #endif
  #if defined(IOMGR_ENABLED_WIN32_LEGACY)

rts/PrimOps.cmm

@@ -2269,7 +2269,7 @@ stg_waitReadzh ( W_ fd )
      (ok) = ccall syncIOWaitReady(Capability_iomgr(MyCapability()) "ptr",
                                   CurrentTSO "ptr",
 -                                 /* IORead */ 0::I32, fd);
 +                                 /* IORead */ 0::CInt, fd);
      if (ok != 0::CBool) (likely: True) {
          jump stg_block_noregs();
      } else {
@@ -2283,7 +2283,7 @@ stg_waitWritezh ( W_ fd )
      (ok) = ccall syncIOWaitReady(Capability_iomgr(MyCapability()) "ptr",
                                   CurrentTSO "ptr",
 -                                 /* IOWrite */ 1::I32, fd);
 +                                 /* IOWrite */ 1::CInt, fd);
      if (ok != 0::CBool) (likely: True) {
          jump stg_block_noregs();
      } else {

rts/posix/FdWakeup.h

@@ -29,12 +29,14 @@
  #include "BeginPrivate.h"
 +#if defined(HAVE_PREEMPTION)
  void newFdWakeup(int *fd_r, int *fd_w);
  void closeFdWakeup(int fd_r, int fd_w);
  /* This is safe to use from a signal handler */
  void sendFdWakeup(int fd_w);
  void collectFdWakeup(int fd_r);
 +#endif
  #include "EndPrivate.h"

rts/posix/Poll.c

@@ -41,6 +41,7 @@
  #include "IOManagerInternals.h"
  #include "Timeout.h"
 +#include "FdWakeup.h"
  /******************************************************************************
@@ -107,8 +108,9 @@ timeout (if any) as the poll() timeout parameter.
  The CapIOManager structure for this I/O manager contains:
      ClosureTable     aiop_table;
 -    struct pollfd   *aiop_poll_table;
 +    struct pollfd   *aiop_poll_table, *full_poll_table;
      StgTimeoutQueue *timeout_queue;
 +    int interrupt_fd_r, interrupt_fd_w;
  We also support the Linux-specific ppoll API which supports higher resolution
  time delays -- nanoseconds rather than milliseconds as in classic poll(). It
@@ -117,6 +119,15 @@ also allows the signal mask to be adjusted, but we do not make use of this.
     int ppoll(struct pollfd *fds, nfds_t nfds,
             const struct timespec *tmo_p, const sigset_t *sigmask);
 +We have both aiop_poll_table and full_poll_table. This is to cope with needing
 +to wait on the special extra file descriptor interrupt_fd_r. This fd is used to
 +support waking the I/O manager when we are blocked in a poll call. This
 +requires waiting on an extra fd that has no corresponding entry in the
 +aiop_table. To manage this quirk, we alias the aiop_poll_table to be the tail
 +of the full_poll_table and have the first entry of the full_poll_table be the
 +interrupt_fd_r. This means the aiop_poll_table indicies match up exactly with
 +the aiop_table, but still allows the full_poll_table to have an extra entry.
++
  ******************************************************************************/
  /* Forward declarations */
@@ -129,16 +140,34 @@ static void reportPollError(int res, nfds_t nfds) STG_NORETURN;
  void initCapabilityIOManagerPoll(CapIOManager *iomgr)
+ {
      initClosureTable(&iomgr->aiop_table, ClosureTableCompact);
 -    iomgr->aiop_poll_table = NULL;
      iomgr->timeout_queue = emptyTimeoutQueue();
++
 +#if defined(HAVE_PREEMPTION)
 +    newFdWakeup(&iomgr->interrupt_fd_r, &iomgr->interrupt_fd_w);
 +#endif
++
 +    iomgr->full_poll_table = stgMallocBytes(sizeof(struct pollfd) /* size 1 */,
 +                                            "initCapabilityIOManagerPoll");
 +    iomgr->full_poll_table[0] = (struct pollfd) {
 +#if defined(HAVE_PREEMPTION)
 +                                  .fd      = iomgr->interrupt_fd_r,
 +                                  .events  = POLLIN,
 +#else
 +                                  .fd      = -1, // unused
 +                                  .events  = 0,  // unused
 +#endif
 +                                  .revents = 0
 +                                };
 +    iomgr->aiop_poll_table = iomgr->full_poll_table+1; /* hence empty */
+ }
  void freeCapabilityIOManagerPoll(CapIOManager *iomgr)
+ {
 -    if (iomgr->aiop_poll_table) {
 -        stgFree(iomgr->aiop_poll_table);
 -    }
 +    stgFree(iomgr->full_poll_table);
 +#if defined(HAVE_PREEMPTION)
 +    closeFdWakeup(iomgr->interrupt_fd_r, iomgr->interrupt_fd_w);
 +#endif
+ }
@@ -295,7 +324,7 @@ static void notifyIOCompletion(CapIOManager *iomgr, StgAsyncIOOp *aiop)
+ }
 -static void processIOCompletions(CapIOManager *iomgr, int ncompletions)
 +static bool processIOCompletions(CapIOManager *iomgr, int ncompletions)
+ {
      /* The scheme we use with poll is that we have a dense poll table, and a
       * corresponding table that maps to the closure table index. The poll
@@ -305,6 +334,19 @@ static void processIOCompletions(CapIOManager *iomgr, int ncompletions)
       */
      debugTrace(DEBUG_iomanager, "processIOCompletions(ncompletions = %d)",
                                  ncompletions);
++
 +    bool interrupt = false;
 +#if defined(HAVE_PREEMPTION)
 +    /* If the interrupt_fd_r is ready, collect it */
 +    if (iomgr->full_poll_table[0].revents) {
 +        ASSERT(iomgr->full_poll_table[0].fd == iomgr->interrupt_fd_r);
 +        collectFdWakeup(iomgr->interrupt_fd_r);
 +        ncompletions--;
 +        interrupt = true;
 +        debugTrace(DEBUG_iomanager, "Received interrupt in poll I/O manager");
 +    }
 +#endif
++
      struct pollfd *aiop_poll_table = iomgr->aiop_poll_table;
      int n = ncompletions;
      int i = 0;
@@ -357,11 +399,14 @@ static void processIOCompletions(CapIOManager *iomgr, int ncompletions)
              i++;
+         }
+     }
 +    return interrupt;
+ }
  void pollCompletedTimeoutsOrIOPoll(CapIOManager *iomgr)
+ {
 +    ASSERT(iomgr->aiop_poll_table == iomgr->full_poll_table+1);
++
      if (!isEmptyTimeoutQueue(iomgr->timeout_queue)) {
          Time now = getProcessElapsedTime();
          processTimeoutCompletions(iomgr, now);
@@ -369,20 +414,28 @@ void pollCompletedTimeoutsOrIOPoll(CapIOManager *iomgr)
      if (!isEmptyClosureTable(&iomgr->aiop_table)) {
 -        nfds_t nfds = sizeClosureTable(&iomgr->aiop_table);
 +#if defined(HAVE_PREEMPTION)
 +        /* the full_poll_table includes interrupt_fd_r */
 +        nfds_t nfds = sizeClosureTable(&iomgr->aiop_table) + 1;
 +        struct pollfd *poll_table = iomgr->full_poll_table;
 +#else
 +        /* the aiop_poll_table does not include interrupt_fd_r */
 +        nfds_t nfds = sizeClosureTable(&iomgr->aiop_table) + 0;
 +        struct pollfd *poll_table = iomgr->aiop_poll_table;
 +#endif
          /* Poll for I/O readiness, without waiting. */
  #if defined(HAVE_DECL_PPOLL) && HAVE_DECL_PPOLL == 1
          /* We could use poll here, since we use no timeout, but for
             consistency we use the same syscall as at the other call site. */
          struct timespec tv = (struct timespec) { .tv_sec = 0, .tv_nsec = 0 };
 -        int res = ppoll(iomgr->aiop_poll_table, nfds, &tv, NULL);
 +        int res = ppoll(poll_table, nfds, &tv, NULL);
          debugTrace(DEBUG_iomanager,
                     "ppoll(nfds = %d, timeout.sec = 0, timeout.nsec = 0) = %d",
                     nfds, res);
  #else
 -        int res = poll(iomgr->aiop_poll_table, nfds, 0);
 +        int res = poll(poll_table, nfds, 0);
          debugTrace(DEBUG_iomanager,
                     "poll(nfds = %d, timeout_ms = 0) = %d",
@@ -408,8 +461,12 @@ void pollCompletedTimeoutsOrIOPoll(CapIOManager *iomgr)
+ }
 -void awaitCompletedTimeoutsOrIOPoll(CapIOManager *iomgr)
 +bool awaitCompletedTimeoutsOrIOPoll(CapIOManager *iomgr)
+ {
 +    bool interrupt = false; /* got woken up via interruptIOManager */
++
 +    ASSERT(iomgr->aiop_poll_table == iomgr->full_poll_table+1);
++
      /* Loop until we've woken up some threads. This loop is needed because the
       * poll() timing isn't accurate, we sometimes sleep for a while but not
       * long enough to wake up a thread in a threadDelay. Or we may need to
@@ -431,6 +488,16 @@ void awaitCompletedTimeoutsOrIOPoll(CapIOManager *iomgr)
           */
          bool wait = emptyRunQueue(iomgr->cap);
 +#if defined(HAVE_PREEMPTION)
 +        /* the full_poll_table includes interrupt_fd_r */
 +        nfds_t nfds = sizeClosureTable(&iomgr->aiop_table) + 1;
 +        struct pollfd *poll_table = iomgr->full_poll_table;
 +#else
 +        /* the aiop_poll_table does not include interrupt_fd_r */
 +        nfds_t nfds = sizeClosureTable(&iomgr->aiop_table) + 0;
 +        struct pollfd *poll_table = iomgr->aiop_poll_table;
 +#endif
++
          /* Decide if we are going to wait if no I/O is ready, either:
           * poll only, wait indefinitely, or wait until a timeout.
           */
@@ -442,9 +509,8 @@ void awaitCompletedTimeoutsOrIOPoll(CapIOManager *iomgr)
  #endif
          /* Check for I/O readiness, possibly waiting. */
 -        nfds_t nfds = sizeClosureTable(&iomgr->aiop_table);
  #if defined(HAVE_DECL_PPOLL) && HAVE_DECL_PPOLL == 1
 -        int res = ppoll(iomgr->aiop_poll_table, nfds, timeout_ns, NULL);
 +        int res = ppoll(poll_table, nfds, timeout_ns, NULL);
          debugTrace(DEBUG_iomanager,
                     "ppoll(nfds = %d, timeout.sec = %d, timeout.nsec = %d) = %d",
@@ -452,7 +518,7 @@ void awaitCompletedTimeoutsOrIOPoll(CapIOManager *iomgr)
                           timeout_ns == NULL ?  0 : timeout_ns->tv_nsec,
                     res);
  #else
 -        int res = poll(iomgr->aiop_poll_table, nfds, timeout_ms);
 +        int res = poll(poll_table, nfds, timeout_ms);
          debugTrace(DEBUG_iomanager,
                     "poll(nfds = %d, timeout_ms = %d) = %d",
@@ -474,7 +540,7 @@ void awaitCompletedTimeoutsOrIOPoll(CapIOManager *iomgr)
          } else if (res > 0) {
              int ncompletions = res;
              ASSERT(ncompletions <= (int)nfds);
 -            processIOCompletions(iomgr, ncompletions);
 +            interrupt = processIOCompletions(iomgr, ncompletions);
              // FIXME: do we also need to check for timeout completions now?
              // we have a non-empty queue, but if !wait then we have also moved
              // on and so we sould check for timeouts.
@@ -502,7 +568,9 @@ void awaitCompletedTimeoutsOrIOPoll(CapIOManager *iomgr)
+         }
      } while (emptyRunQueue(iomgr->cap)
 +         && !interrupt
           && (getSchedState() == SCHED_RUNNING));
 +    return !interrupt;
+ }
  static void reportPollError(int res, nfds_t nfds)
@@ -521,6 +589,14 @@ static void reportPollError(int res, nfds_t nfds)
+ }
 +void interruptIOManagerPoll(CapIOManager *iomgr)
 +{
 +#if defined(HAVE_PREEMPTION)
 +    sendFdWakeup(iomgr->interrupt_fd_w);
 +#endif
 +}
++
++
  /* Helper function to double the size of the aiop_table and aiop_poll_table.
   */
  static bool enlargeTables(CapIOManager *iomgr)
@@ -531,13 +607,17 @@ static bool enlargeTables(CapIOManager *iomgr)
      bool ok = enlargeClosureTable(iomgr->cap, &iomgr->aiop_table, newcapacity);
      if (RTS_UNLIKELY(!ok)) return false;
 -    /* Update the auxiliary aiop_poll_table to match */
 -    struct pollfd *aiop_poll_table;
 -    aiop_poll_table = stgReallocBytes(iomgr->aiop_poll_table,
 -                                      sizeof(struct pollfd) * newcapacity,
 -                                      "Poll.c: enlargeTables");
 -    iomgr->aiop_poll_table = aiop_poll_table;
 +    /* Update the auxiliary aiop_poll_table to match. The full_poll_table is
 +     * one bigger than the aiop_poll_table, since it has an extra entry at the
 +     * front for interrupt_fd_r, with no corresponding aiop. */
 +    iomgr->full_poll_table =
 +        stgReallocBytes(iomgr->full_poll_table,
 +                        sizeof(struct pollfd) * (newcapacity+1),
 +                        "Poll.c: enlargeTables");
 +    iomgr->aiop_poll_table = iomgr->full_poll_table+1;
++
      /* Initialise the new part of the aiop_poll_table */
 +    struct pollfd *aiop_poll_table = iomgr->aiop_poll_table;
      for (int i = oldcapacity; i < newcapacity; i++) {
          aiop_poll_table[i] = (struct pollfd) {
                                 .fd      = -1,

rts/posix/Poll.h

@@ -32,7 +32,8 @@ void asyncIOCancelPoll(CapIOManager *iomgr, StgAsyncIOOp *aiop);
  /* Scheduler operations */
  bool anyPendingTimeoutsOrIOPoll(CapIOManager *iomgr);
  void pollCompletedTimeoutsOrIOPoll(CapIOManager *iomgr);
 -void awaitCompletedTimeoutsOrIOPoll(CapIOManager *iomgr);
 +bool awaitCompletedTimeoutsOrIOPoll(CapIOManager *iomgr);
 +void interruptIOManagerPoll(CapIOManager *iomgr);
  #endif /* IOMGR_ENABLED_POLL */

rts/posix/Select.c

@@ -22,6 +22,7 @@
  #include "IOManagerInternals.h"
  #include "Stats.h"
  #include "GetTime.h"
 +#include "FdWakeup.h"
  # if defined(HAVE_SYS_SELECT_H)
  #  include <sys/select.h>
@@ -54,6 +55,39 @@
  #define TimeToLowResTimeRoundUp(t)   (t)
  #endif
 +void initCapabilityIOManagerSelect(CapIOManager *iomgr)
 +{
 +    iomgr->blocked_queue_hd = END_TSO_QUEUE;
 +    iomgr->blocked_queue_tl = END_TSO_QUEUE;
 +    iomgr->sleeping_queue   = END_TSO_QUEUE;
++
 +#if defined(HAVE_PREEMPTION)
 +    newFdWakeup(&iomgr->interrupt_fd_r, &iomgr->interrupt_fd_w);
++
 +    /* Would never happen in a standalone process, but could plausibly happen
 +     * if the RTS is used within another process that already has many open fds.
 +     */
 +    if (iomgr->interrupt_fd_r < 0 || iomgr->interrupt_fd_r >= (int)FD_SETSIZE ||
 +        iomgr->interrupt_fd_w < 0 || iomgr->interrupt_fd_w >= (int)FD_SETSIZE) {
 +        barf("initCapabilityIOManagerSelect: fds out of select range");
 +    }
 +#endif
 +}
++
 +void freeCapabilityIOManagerSelect(CapIOManager *iomgr)
 +{
 +#if defined(HAVE_PREEMPTION)
 +    closeFdWakeup(iomgr->interrupt_fd_r, iomgr->interrupt_fd_w);
 +#endif
 +}
++
 +void interruptIOManagerSelect(CapIOManager *iomgr)
 +{
 +#if defined(HAVE_PREEMPTION)
 +    sendFdWakeup(iomgr->interrupt_fd_w);
 +#endif
 +}
++
  /*
   * Return the time since the program started, in LowResTime,
   * rounded down.
@@ -215,7 +249,7 @@ static enum FdState fdPollWriteState (int fd)
   * not write handles.
+  *
   */
 -void
 +bool
  awaitCompletedTimeoutsOrIOSelect(CapIOManager *iomgr, bool wait)
+ {
      StgTSO *tso, *prev, *next;
@@ -225,6 +259,7 @@ awaitCompletedTimeoutsOrIOSelect(CapIOManager *iomgr, bool wait)
      bool seen_bad_fd = false;
      struct timeval tv, *ptv;
      LowResTime now;
 +    bool interrupt = false; /* got interrupted up via interruptIOManager */
      IF_DEBUG(scheduler,
               debugBelch("scheduler: checking for threads blocked on I/O");
@@ -243,7 +278,7 @@ awaitCompletedTimeoutsOrIOSelect(CapIOManager *iomgr, bool wait)
        now = getLowResTimeOfDay();
        if (wakeUpSleepingThreads(iomgr, now)) {
 -          return;
 +          return true;
+       }
        /*
@@ -252,6 +287,16 @@ awaitCompletedTimeoutsOrIOSelect(CapIOManager *iomgr, bool wait)
        FD_ZERO(&rfd);
        FD_ZERO(&wfd);
 +#if defined(HAVE_PREEMPTION)
 +      /* We're always interested in our interrupt fd */
 +      {
 +          int fd = iomgr->interrupt_fd_r;
 +          maxfd = (fd > maxfd) ? fd : maxfd;
 +          ASSERT(fd >= 0 && fd < (int)FD_SETSIZE); // checked during init
 +          FD_SET(fd, &rfd);
 +      }
 +#endif
++
        for(tso = iomgr->blocked_queue_hd;
            tso != END_TSO_QUEUE;
            tso = next) {
@@ -354,14 +399,14 @@ awaitCompletedTimeoutsOrIOSelect(CapIOManager *iomgr, bool wait)
  #if defined(RTS_USER_SIGNALS)
            if (RtsFlags.MiscFlags.install_signal_handlers && signals_pending()) {
                startSignalHandlers(iomgr->cap);
 -              return; /* still hold the lock */
 +              return true; /* still hold the lock */
+           }
  #endif
            /* we were interrupted, return to the scheduler immediately.
             */
            if (getSchedState() >= SCHED_INTERRUPTING) {
 -              return; /* still hold the lock */
 +              return true; /* still hold the lock */
+           }
            /* check for threads that need waking up
@@ -372,10 +417,19 @@ awaitCompletedTimeoutsOrIOSelect(CapIOManager *iomgr, bool wait)
             * I/O and run them.
             */
            if (!emptyRunQueue(iomgr->cap)) {
 -              return; /* still hold the lock */
 +              return true; /* still hold the lock */
+           }
+       }
 +#if defined(HAVE_PREEMPTION)
 +      /* If the interrupt_fd_r is ready, collect it */
 +      if (FD_ISSET(iomgr->interrupt_fd_r, &rfd)) {
 +          collectFdWakeup(iomgr->interrupt_fd_r);
 +          interrupt = true;
 +          debugTrace(DEBUG_iomanager, "Received interrupt in select I/O manager");
 +      }
 +#endif
++
        /* Step through the waiting queue, unblocking every thread that now has
         * a file descriptor in a ready state.
         */
@@ -458,7 +512,9 @@ awaitCompletedTimeoutsOrIOSelect(CapIOManager *iomgr, bool wait)
+       }
      } while (wait && getSchedState() == SCHED_RUNNING
 -                  && emptyRunQueue(iomgr->cap));
 +                  && emptyRunQueue(iomgr->cap)
 +                  && !interrupt);
 +    return !interrupt;
+ }
  #endif /* IOMGR_ENABLED_SELECT */

rts/posix/Select.h

@@ -15,7 +15,12 @@ typedef StgWord LowResTime;
  LowResTime getDelayTarget (HsInt us);
 -void awaitCompletedTimeoutsOrIOSelect(CapIOManager *iomgr, bool wait);
 +void initCapabilityIOManagerSelect(CapIOManager *iomgr);
 +void freeCapabilityIOManagerSelect(CapIOManager *iomgr);
 +void wakeupIOManagerSelect(CapIOManager *iomgr);
++
 +bool awaitCompletedTimeoutsOrIOSelect(CapIOManager *iomgr, bool wait);
 +void interruptIOManagerSelect(CapIOManager *iomgr);
  #include "EndPrivate.h"

rts/win32/AsyncMIO.c

@@ -221,8 +221,12 @@ shutdownAsyncIO(bool wait_threads)
   * requests to make further progress. In the latter scenario,
   * awaitRequests() will simply block waiting for worker threads
   * to complete if the 'completedTable' is empty.
 + *
 + * The result reports if the wait completed successfully (typically with some
 + * work available), or was interrupted by abandonRequestWait(), with true
 + * meaning completed, and false meaning interrupted.
   */
 -int
 +bool
  awaitRequests(bool wait)
+ {
  #if !defined(THREADED_RTS)
@@ -246,7 +250,7 @@ start:
  #endif
          ) {
          OS_RELEASE_LOCK(&queue_lock);
 -        return 0;
 +        return true;
+     }
      if (completed_hw == 0) {
          // empty table, drop lock and wait
@@ -259,22 +263,24 @@ start:
                  // a request was completed
                  break;
              case WAIT_OBJECT_0 + 1:
 +                // abandon_req_wait signaled, by abandonRequestWait()
 +                return false;
              case WAIT_TIMEOUT:
                  // timeout (unlikely) or told to abandon waiting
 -                return 0;
 +                return true;
              case WAIT_FAILED: {
                  DWORD dw = GetLastError();
                  fprintf(stderr, "awaitRequests: wait failed -- "
                                  "error code: %lu\n", dw); fflush(stderr);
 -                return 0;
 +                return true;
+             }
              default:
                  fprintf(stderr, "awaitRequests: unexpected wait return "
                                  "code %lu\n", dwRes); fflush(stderr);
 -                return 0;
 +                return true;
+             }
          } else {
 -            return 0;
 +            return true;
+         }
          goto start;
      } else {
@@ -352,7 +358,7 @@ start:
          completed_hw = 0;
          ResetEvent(completed_req_event);
          OS_RELEASE_LOCK(&queue_lock);
 -        return 1;
 +        return true;
+     }
  #endif /* !THREADED_RTS */
+ }
@@ -383,12 +389,6 @@ abandonRequestWait( void )
      interruptIOManagerEvent ();
+ }
 -void
 -resetAbandonRequestWait( void )
 -{
 -    ResetEvent(abandon_req_wait);
 -}
+-
  #endif /* !defined(THREADED_RTS) */
  HsInt rts_EINTR(void)

rts/win32/AsyncMIO.h

@@ -25,7 +25,7 @@ extern unsigned int addDoProcRequest(void* proc, void* param);
  extern int  startupAsyncIO(void);
  extern void shutdownAsyncIO(bool wait_threads);
 -extern int awaitRequests(bool wait);
 +extern bool awaitRequests(bool wait);
  extern void abandonRequestWait(void);
  extern void resetAbandonRequestWait(void);

rts/win32/AwaitEvent.c

@@ -28,17 +28,21 @@
  // Protected by sched_mutex.
  static bool workerWaitingForRequests = false;
 -void
 +bool
  awaitCompletedTimeoutsOrIOWin32(Capability *cap, bool wait)
+ {
 +  bool interrupt = false;
    do {
      /* Try to de-queue completed IO requests
       */
      workerWaitingForRequests = true;
      if (is_io_mng_native_p())
        awaitAsyncRequests(wait);
 +      /* FIXME: no support yet for interrupting in WinIO I/O manager
 +       * See issue #27403
 +       */
      else
 -      awaitRequests(wait);
 +      interrupt = !awaitRequests(wait);
      workerWaitingForRequests = false;
      // If a signal was raised, we need to service it
@@ -47,11 +51,12 @@ awaitCompletedTimeoutsOrIOWin32(Capability *cap, bool wait)
      // does it and I'm feeling too paranoid to refactor it today --SDM
      if (stg_pending_events != 0) {
          startSignalHandlers(cap);
 -        return;
 +        // This will normally cause emptyRunQueue to become false and
 +        // thus we will drop out of the loop.
+     }
 -    // The return value from awaitRequests() is a red herring: ignore
 -    // it.  Return to the scheduler if !wait, or
 +    // The return value from awaitRequests() reports if it was interrupted by
 +    // abandonRequestWait(). Return to the scheduler if !wait, or
      //
      //  - we were interrupted
      //  - the run-queue is now non- empty
@@ -59,6 +64,8 @@ awaitCompletedTimeoutsOrIOWin32(Capability *cap, bool wait)
    } while (wait
             && getSchedState() == SCHED_RUNNING
             && emptyRunQueue(cap)
 +           && !interrupt
        );
 +  return !interrupt;
+ }
  #endif

rts/win32/AwaitEvent.h

@@ -2,6 +2,6 @@
  #include "BeginPrivate.h"
 -void awaitCompletedTimeoutsOrIOWin32(Capability *cap, bool wait);
 +bool awaitCompletedTimeoutsOrIOWin32(Capability *cap, bool wait);
  #include "EndPrivate.h"