Commit 1c6ab1d8 authored by simonm's avatar simonm
Browse files

[project @ 1999-02-26 16:46:50 by simonm]

Back out accidental commits.
parent 892b9017
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $Id: Main.c,v 1.4 1999/02/26 16:44:13 simonm Exp $ * $Id: Main.c,v 1.5 1999/02/26 16:46:50 simonm Exp $
* *
* (c) The GHC Team 1998-1999 * (c) The GHC Team 1998-1999
* *
...@@ -68,8 +68,6 @@ int main(int argc, char *argv[]) ...@@ -68,8 +68,6 @@ int main(int argc, char *argv[])
case Interrupted: case Interrupted:
/* carry on */ /* carry on */
} }
/* run all threads */
run_all_threads();
shutdownHaskell(); shutdownHaskell();
stg_exit(EXIT_SUCCESS); stg_exit(EXIT_SUCCESS);
} }
......
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $Id: Schedule.c,v 1.11 1999/02/26 16:44:13 simonm Exp $ * $Id: Schedule.c,v 1.12 1999/02/26 16:46:50 simonm Exp $
* *
* (c) The GHC Team, 1998-1999 * (c) The GHC Team, 1998-1999
* *
...@@ -315,14 +315,6 @@ void initScheduler(void) ...@@ -315,14 +315,6 @@ void initScheduler(void)
enteredCAFs = END_CAF_LIST; enteredCAFs = END_CAF_LIST;
} }
void
run_all_threads ( void )
{
while (run_queue_hd != END_TSO_QUEUE) {
schedule(run_queue_hd, NULL);
}
}
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
Main scheduling loop. Main scheduling loop.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment