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
*
......@@ -68,8 +68,6 @@ int main(int argc, char *argv[])
case Interrupted:
/* carry on */
}
/* run all threads */
run_all_threads();
shutdownHaskell();
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
*
......@@ -315,14 +315,6 @@ void initScheduler(void)
enteredCAFs = END_CAF_LIST;
}
void
run_all_threads ( void )
{
while (run_queue_hd != END_TSO_QUEUE) {
schedule(run_queue_hd, NULL);
}
}
/* -----------------------------------------------------------------------------
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