diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-06-02 14:02:33 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-06-02 14:02:33 +0000 |
| commit | dd56e9ab4544e83d27532a8d9058140bfe81825c (patch) | |
| tree | 5c5ba3eb63a02d7de3c8c514e883f7dd36e98332 /rts/RtsAPI.c | |
| parent | cfe2fd2a36f43c1f998bb5e7c0cec15480ed3f96 (diff) | |
| download | haskell-dd56e9ab4544e83d27532a8d9058140bfe81825c.tar.gz | |
Remove old GUM/GranSim code
Diffstat (limited to 'rts/RtsAPI.c')
| -rw-r--r-- | rts/RtsAPI.c | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/rts/RtsAPI.c b/rts/RtsAPI.c index d0d8d58a34..0748871ca7 100644 --- a/rts/RtsAPI.c +++ b/rts/RtsAPI.c @@ -497,11 +497,7 @@ StgTSO * createGenThread (Capability *cap, nat stack_size, StgClosure *closure) { StgTSO *t; -#if defined(GRAN) - t = createThread (cap, stack_size, NO_PRI); -#else t = createThread (cap, stack_size); -#endif pushClosure(t, (W_)closure); pushClosure(t, (W_)&stg_enter_info); return t; @@ -511,11 +507,7 @@ StgTSO * createIOThread (Capability *cap, nat stack_size, StgClosure *closure) { StgTSO *t; -#if defined(GRAN) - t = createThread (cap, stack_size, NO_PRI); -#else t = createThread (cap, stack_size); -#endif pushClosure(t, (W_)&stg_noforceIO_info); pushClosure(t, (W_)&stg_ap_v_info); pushClosure(t, (W_)closure); @@ -532,11 +524,7 @@ StgTSO * createStrictIOThread(Capability *cap, nat stack_size, StgClosure *closure) { StgTSO *t; -#if defined(GRAN) - t = createThread(cap, stack_size, NO_PRI); -#else t = createThread(cap, stack_size); -#endif pushClosure(t, (W_)&stg_forceIO_info); pushClosure(t, (W_)&stg_ap_v_info); pushClosure(t, (W_)closure); |