diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-04-01 11:45:59 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-04-01 11:45:59 +0000 |
| commit | 79957d77c1bff767f1041d3fabdeb94d92a52878 (patch) | |
| tree | b954e473427cec67e8b1f18c7f3efcb02acbc042 /rts/Schedule.h | |
| parent | f24b406604bc64ff15ab57942d995ffcb5f2dc08 (diff) | |
| download | haskell-79957d77c1bff767f1041d3fabdeb94d92a52878.tar.gz | |
Fix warnings (allow pushOnRunQueue() to not be inlined)
Diffstat (limited to 'rts/Schedule.h')
| -rw-r--r-- | rts/Schedule.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/rts/Schedule.h b/rts/Schedule.h index 76138b68f3..2412285d29 100644 --- a/rts/Schedule.h +++ b/rts/Schedule.h @@ -137,7 +137,10 @@ appendToRunQueue (Capability *cap, StgTSO *tso) /* Push a thread on the beginning of the run queue. * ASSUMES: cap->running_task is the current task. */ -INLINE_HEADER void +EXTERN_INLINE void +pushOnRunQueue (Capability *cap, StgTSO *tso); + +EXTERN_INLINE void pushOnRunQueue (Capability *cap, StgTSO *tso) { setTSOLink(cap, tso, cap->run_queue_hd); |