Commit e57b7cc6 authored by roland's avatar roland Committed by Marge Bot

Changing Thread IDs from 32 bits to 64 bits.

parent 098d5017
......@@ -42,7 +42,7 @@ StgRegTable * resumeThread (void *);
// Thread operations from Threads.c
//
int cmp_thread (StgPtr tso1, StgPtr tso2);
int rts_getThreadId (StgPtr tso);
long rts_getThreadId (StgPtr tso);
void rts_enableThreadAllocationLimit (StgPtr tso);
void rts_disableThreadAllocationLimit (StgPtr tso);
......
......@@ -20,9 +20,9 @@ typedef struct {
*/
/*
* Thread IDs are 32 bits.
* Thread IDs are 64 bits.
*/
typedef StgWord32 StgThreadID;
typedef StgWord64 StgThreadID;
#define tsoLocked(tso) ((tso)->flags & TSO_LOCKED)
......
......@@ -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);
}
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment