diff options
| author | tharris <unknown> | 2005-11-21 15:58:47 +0000 |
|---|---|---|
| committer | tharris <unknown> | 2005-11-21 15:58:47 +0000 |
| commit | afd08a9c06ae4b15e33e26e5a2818801c7fee429 (patch) | |
| tree | 6535e0af792c9cc2afa1ad6cba96d19038e8ec1d /ghc/rts/GC.c | |
| parent | 7fe1172a74da728154d3d86729afdb59855406dd (diff) | |
| download | haskell-afd08a9c06ae4b15e33e26e5a2818801c7fee429.tar.gz | |
[project @ 2005-11-21 15:58:47 by tharris]
Re-use temporary storage in the STM implementation
Diffstat (limited to 'ghc/rts/GC.c')
| -rw-r--r-- | ghc/rts/GC.c | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c index bc8546a115..513d14a20c 100644 --- a/ghc/rts/GC.c +++ b/ghc/rts/GC.c @@ -3051,9 +3051,6 @@ scavenge(step *stp) evac_gen = 0; tvar->current_value = evacuate((StgClosure*)tvar->current_value); tvar->first_wait_queue_entry = (StgTVarWaitQueue *)evacuate((StgClosure*)tvar->first_wait_queue_entry); -#if defined(SMP) - tvar->last_update_by = (StgTRecHeader *)evacuate((StgClosure*)tvar->last_update_by); -#endif evac_gen = saved_evac_gen; failed_to_evac = rtsTrue; // mutable p += sizeofW(StgTVar); @@ -3408,9 +3405,6 @@ linear_scan: evac_gen = 0; tvar->current_value = evacuate((StgClosure*)tvar->current_value); tvar->first_wait_queue_entry = (StgTVarWaitQueue *)evacuate((StgClosure*)tvar->first_wait_queue_entry); -#if defined(SMP) - tvar->last_update_by = (StgTRecHeader *)evacuate((StgClosure*)tvar->last_update_by); -#endif evac_gen = saved_evac_gen; failed_to_evac = rtsTrue; // mutable break; @@ -3732,9 +3726,6 @@ scavenge_one(StgPtr p) evac_gen = 0; tvar->current_value = evacuate((StgClosure*)tvar->current_value); tvar->first_wait_queue_entry = (StgTVarWaitQueue *)evacuate((StgClosure*)tvar->first_wait_queue_entry); -#if defined(SMP) - tvar->last_update_by = (StgTRecHeader *)evacuate((StgClosure*)tvar->last_update_by); -#endif evac_gen = saved_evac_gen; failed_to_evac = rtsTrue; // mutable break; |