diff options
| author | Roland Zumkeller <Roland.Zumkeller@gmail.com> | 2019-06-22 19:08:43 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-11-19 20:39:19 -0500 |
| commit | e57b7cc6d8b1222e0939d19c265b51d2c3c2b4c0 (patch) | |
| tree | bd5d91487d198dc19a521c6866fd654232b723c9 /rts | |
| parent | 098d50176a2521d08efe6fdbab0ede2b7419786a (diff) | |
| download | haskell-e57b7cc6d8b1222e0939d19c265b51d2c3c2b4c0.tar.gz | |
Changing Thread IDs from 32 bits to 64 bits.
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Threads.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/Threads.c b/rts/Threads.c index 8b05dd7c50..cce32ca2b3 100644 --- a/rts/Threads.c +++ b/rts/Threads.c @@ -161,7 +161,7 @@ cmp_thread(StgPtr tso1, StgPtr tso2) * * This is used in the implementation of Show for ThreadIds. * ------------------------------------------------------------------------ */ -int +long rts_getThreadId(StgPtr tso) { return ((StgTSO *)tso)->id; @@ -882,8 +882,8 @@ printThreadBlockage(StgTSO *tso) debugBelch("is blocked on an STM operation"); break; default: - barf("printThreadBlockage: strange tso->why_blocked: %d for TSO %d (%p)", - tso->why_blocked, tso->id, tso); + barf("printThreadBlockage: strange tso->why_blocked: %d for TSO %ld (%p)", + tso->why_blocked, (long)tso->id, tso); } } |