summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorsimonmar <unknown>2003-12-16 13:19:13 +0000
committersimonmar <unknown>2003-12-16 13:19:13 +0000
commit4ff7d0b15769c360b3f54e857a6880edbcd46d26 (patch)
treee5fd39973b2c0650d443daf6339a0c445cf84099
parent2ca1379641d1ffef330e48f124abaa4983837c9b (diff)
downloadhaskell-4ff7d0b15769c360b3f54e857a6880edbcd46d26.tar.gz
[project @ 2003-12-16 13:19:01 by simonmar]
ANSIfy
-rw-r--r--ghc/rts/Task.c2
-rw-r--r--ghc/rts/Task.h4
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) );