diff options
| author | simonmar <unknown> | 2003-12-16 13:19:13 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-12-16 13:19:13 +0000 |
| commit | 4ff7d0b15769c360b3f54e857a6880edbcd46d26 (patch) | |
| tree | e5fd39973b2c0650d443daf6339a0c445cf84099 | |
| parent | 2ca1379641d1ffef330e48f124abaa4983837c9b (diff) | |
| download | haskell-4ff7d0b15769c360b3f54e857a6880edbcd46d26.tar.gz | |
[project @ 2003-12-16 13:19:01 by simonmar]
ANSIfy
| -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) ); |
