From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 15 May 2009 09:23:56 +0000 (+0000)
Subject: fix cut-and-pasto in mkWeakForeignEnv#, causing random segfaults
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=3e180332e69eb3a3eb2c0cb052c39e648887fe49

fix cut-and-pasto in mkWeakForeignEnv#, causing random segfaults
---

diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index 121102c..501a719 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]);