diff options
Diffstat (limited to 'ghc/rts/RtsAPI.c')
| -rw-r--r-- | ghc/rts/RtsAPI.c | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/ghc/rts/RtsAPI.c b/ghc/rts/RtsAPI.c index 79c33a8861..fb4df6ced2 100644 --- a/ghc/rts/RtsAPI.c +++ b/ghc/rts/RtsAPI.c @@ -1,5 +1,5 @@ /* ---------------------------------------------------------------------------- - * $Id: RtsAPI.c,v 1.9 1999/10/15 11:03:10 sewardj Exp $ + * $Id: RtsAPI.c,v 1.10 1999/11/02 15:05:59 simonmar Exp $ * * (c) The GHC Team, 1998-1999 * @@ -331,14 +331,16 @@ SchedulerStatus rts_eval (HaskellObj p, /*out*/HaskellObj *ret) { StgTSO *tso = createGenThread(RtsFlags.GcFlags.initialStkSize, p); - return schedule(tso, ret); + scheduleThread(tso); + return waitThread(tso, ret); } SchedulerStatus rts_eval_ (HaskellObj p, unsigned int stack_size, /*out*/HaskellObj *ret) { StgTSO *tso = createGenThread(stack_size, p); - return schedule(tso, ret); + scheduleThread(tso); + return waitThread(tso, ret); } /* @@ -349,7 +351,8 @@ SchedulerStatus rts_evalIO (HaskellObj p, /*out*/HaskellObj *ret) { StgTSO* tso = createStrictIOThread(RtsFlags.GcFlags.initialStkSize, p); - return schedule(tso, ret); + scheduleThread(tso); + return waitThread(tso, ret); } /* @@ -359,7 +362,8 @@ SchedulerStatus rts_evalLazyIO (HaskellObj p, unsigned int stack_size, /*out*/HaskellObj *ret) { StgTSO *tso = createIOThread(stack_size, p); - return schedule(tso, ret); + scheduleThread(tso); + return waitThread(tso, ret); } /* Convenience function for decoding the returned status. */ |