From 3e180332e69eb3a3eb2c0cb052c39e648887fe49 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 15 May 2009 09:23:56 +0000 Subject: fix cut-and-pasto in mkWeakForeignEnv#, causing random segfaults --- rts/PrimOps.cmm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'rts/PrimOps.cmm') 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]); -- cgit v1.2.1