From 91af47d422942336b6e9f93d1250e6385e252a95 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 15 Apr 2003 14:37:12 +0000
Subject: [PATCH] [project @ 2003-04-15 14:37:12 by simonmar] Fix bug in
 forkProcess: it should be using RET_N rather than returing
 directly.  Makes a difference for unregisterised only.

Remove dead code in atomicModifyMVarzh_fast.
---
 ghc/rts/PrimOps.hc |    6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/ghc/rts/PrimOps.hc b/ghc/rts/PrimOps.hc
index f16a63b..168d968 100644
--- a/ghc/rts/PrimOps.hc
+++ b/ghc/rts/PrimOps.hc
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: PrimOps.hc,v 1.106 2003/03/24 14:46:54 simonmar Exp $
+ * $Id: PrimOps.hc,v 1.107 2003/04/15 14:37:12 simonmar Exp $
  *
  * (c) The GHC Team, 1998-2002
  *
@@ -368,7 +368,6 @@ FN_(atomicModifyMutVarzh_fast)
    r->payload[0] = z;
 
    RET_P(r);
-   JMP_(ENTRY_CODE(Sp[0]));
    FE_
 }
 
@@ -1064,8 +1063,7 @@ FN_(forkProcesszh_fast)
 
   R1.i = RET_STGCALL1(StgInt, forkProcess, CurrentTSO);
 
-  JMP_(ENTRY_CODE(Sp[0]));
-
+  RET_N(R1.i);
   FE_
 }
 
-- 
1.7.10.4