diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-01-04 15:13:23 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-01-05 15:20:16 +0000 |
| commit | 3478213ac422912df85308029e16c3f31b5a91d2 (patch) | |
| tree | 3912df78d1b76f8e42d00ccc123942c4f9fb2256 /rts/RaiseAsync.c | |
| parent | 6a9e521713cb4cbc3c49fa861aa936730c346e5e (diff) | |
| download | haskell-3478213ac422912df85308029e16c3f31b5a91d2.tar.gz | |
Rename the CCCS field of StgTSO so as not to conflict with the CCCS pseudo-register
Needed by #5357
Diffstat (limited to 'rts/RaiseAsync.c')
| -rw-r--r-- | rts/RaiseAsync.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index c7b10b856e..2887617c34 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -739,7 +739,7 @@ raiseAsync(Capability *cap, StgTSO *tso, StgClosure *exception, */ if (RtsFlags.ProfFlags.showCCSOnException) { - fprintCCS_stderr(tso->prof.CCCS,exception,tso); + fprintCCS_stderr(tso->prof.cccs,exception,tso); } #endif // ASSUMES: the thread is not already complete or dead |