diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-05-15 09:23:56 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-05-15 09:23:56 +0000 |
| commit | 3e180332e69eb3a3eb2c0cb052c39e648887fe49 (patch) | |
| tree | 5d38da6eaf9116fc4482a42ea17b77f34b8ef755 /rts/PrimOps.cmm | |
| parent | ab4643fd44a2ac020bbc86aa52c1f57c4da7d1c9 (diff) | |
| download | haskell-3e180332e69eb3a3eb2c0cb052c39e648887fe49.tar.gz | |
fix cut-and-pasto in mkWeakForeignEnv#, causing random segfaults
Diffstat (limited to 'rts/PrimOps.cmm')
| -rw-r--r-- | rts/PrimOps.cmm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 121102c8e1..501a719b33 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -367,7 +367,7 @@ mkWeakForeignEnvzh_fast flag = R5; eptr = R6; - ALLOC_PRIM( SIZEOF_StgWeak, R1_PTR & R2_PTR & R3_PTR, mkWeakForeignEnvzh_fast ); + ALLOC_PRIM( SIZEOF_StgWeak, R1_PTR & R2_PTR, mkWeakForeignEnvzh_fast ); w = Hp - SIZEOF_StgWeak + WDS(1); SET_HDR(w, stg_WEAK_info, W_[CCCS]); |