diff options
| author | Duncan Coutts <duncan@well-typed.com> | 2021-01-03 18:06:07 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-01-25 05:11:14 -0500 |
| commit | d345d3befe40cd265b9309f10c0aea057b2dd249 (patch) | |
| tree | e1778144443ec2eace5189ba9a33c5c1779f5436 /rts/Schedule.c | |
| parent | 4ad726fc1a5d062e2df2910d7f39ab81428dddfc (diff) | |
| download | haskell-d345d3befe40cd265b9309f10c0aea057b2dd249.tar.gz | |
Replace a direct call to ioManagerStartCap with a new hook
Replace a direct call to ioManagerStartCap in the forkProcess in
Schedule.c with a new hook initIOManagerAfterFork in IOManager.
This replaces a direct hook in the scheduler from the a single I/O
manager impl (the threaded unix one) with a generic hook.
Add some commentrary on opportunities for future rationalisation.
Diffstat (limited to 'rts/Schedule.c')
| -rw-r--r-- | rts/Schedule.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/rts/Schedule.c b/rts/Schedule.c index 810a70973b..0ee8f70cfe 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -2200,9 +2200,7 @@ forkProcess(HsStablePtr *entry // like startup event, capabilities, process info etc traceTaskCreate(task, cap); -#if defined(THREADED_RTS) - ioManagerStartCap(&cap); -#endif + initIOManagerAfterFork(&cap); // Install toplevel exception handlers, so interruption // signal will be sent to the main thread. |