diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-09-07 16:01:36 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-09-07 16:25:16 +0100 |
| commit | bf2d58c2356578e87c1b09de0636a7cf57c71fe7 (patch) | |
| tree | cc0e89e50c62010894a211fd20be019ebb4e23e9 /rts/RtsAPI.c | |
| parent | 0550bcbf040bd15b4c99add47e3fbb7387be38ff (diff) | |
| download | haskell-bf2d58c2356578e87c1b09de0636a7cf57c71fe7.tar.gz | |
Lots of nat -> StgWord changes
Diffstat (limited to 'rts/RtsAPI.c')
| -rw-r--r-- | rts/RtsAPI.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/RtsAPI.c b/rts/RtsAPI.c index c0896f7c6a..ec19b169b6 100644 --- a/rts/RtsAPI.c +++ b/rts/RtsAPI.c @@ -380,7 +380,7 @@ INLINE_HEADER void pushClosure (StgTSO *tso, StgWord c) { } StgTSO * -createGenThread (Capability *cap, nat stack_size, StgClosure *closure) +createGenThread (Capability *cap, W_ stack_size, StgClosure *closure) { StgTSO *t; t = createThread (cap, stack_size); @@ -390,7 +390,7 @@ createGenThread (Capability *cap, nat stack_size, StgClosure *closure) } StgTSO * -createIOThread (Capability *cap, nat stack_size, StgClosure *closure) +createIOThread (Capability *cap, W_ stack_size, StgClosure *closure) { StgTSO *t; t = createThread (cap, stack_size); @@ -406,7 +406,7 @@ createIOThread (Capability *cap, nat stack_size, StgClosure *closure) */ StgTSO * -createStrictIOThread(Capability *cap, nat stack_size, StgClosure *closure) +createStrictIOThread(Capability *cap, W_ stack_size, StgClosure *closure) { StgTSO *t; t = createThread(cap, stack_size); |