diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-03-01 10:10:25 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-03-01 10:10:25 +0000 |
| commit | 59977b6c7cc81777dc6f8266c68945d1ab691aec (patch) | |
| tree | 8a72ed52c2bb57abdb910520627c77a46581b02c /rts | |
| parent | 3da491217855adfe4eeace6493c9a625e23965ea (diff) | |
| download | haskell-59977b6c7cc81777dc6f8266c68945d1ab691aec.tar.gz | |
GHC.Prim.threadStatus# now returns the cap number, and the value of TSO_LOCKED
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/PrimOps.cmm | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 7a7942abcc..701654af49 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -631,7 +631,7 @@ stg_threadStatuszh W_ tso; W_ why_blocked; W_ what_next; - W_ ret; + W_ ret, cap, locked; tso = R1; @@ -651,7 +651,16 @@ stg_threadStatuszh ret = why_blocked; } } - RET_N(ret); + + cap = TO_W_(Capability_no(StgTSO_cap(tso))); + + if ((TO_W_(StgTSO_flags(tso)) & TSO_LOCKED) != 0) { + locked = 1; + } else { + locked = 0; + } + + RET_NNN(ret,cap,locked); } /* ----------------------------------------------------------------------------- |