diff options
| -rw-r--r-- | ghc/rts/Task.c | 2 | ||||
| -rw-r--r-- | ghc/rts/Task.h | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ghc/rts/Task.c b/ghc/rts/Task.c index c720538995..6579abc3ae 100644 --- a/ghc/rts/Task.c +++ b/ghc/rts/Task.c @@ -200,7 +200,7 @@ stopTaskManager () } void -resetTaskManagerAfterFork () +resetTaskManagerAfterFork ( void ) { rts_n_waiting_tasks = 0; taskCount = 0; diff --git a/ghc/rts/Task.h b/ghc/rts/Task.h index ee599876fd..fcea419910 100644 --- a/ghc/rts/Task.h +++ b/ghc/rts/Task.h @@ -1,6 +1,6 @@ /* ----------------------------------------------------------------------------- * - * (c) The GHC Team 2001- + * (c) The GHC Team 2001-2003 * * Types + prototypes for functions in Task.c * (RTS subsystem for handling tasks, agents thay may execute STG code). @@ -28,7 +28,7 @@ extern TaskInfo *taskIds; extern void startTaskManager ( nat maxTasks, void (*taskStart)(void) ); extern void stopTaskManager ( void ); -void resetTaskManagerAfterFork (); +extern void resetTaskManagerAfterFork ( void ); extern void startTask ( void (*taskStart)(void) ); |