From d117cff1564112cee7ad2d09b3abccc6ca3c909f Mon Sep 17 00:00:00 2001
From: rje <unknown>
Date: Sat, 26 Jan 2002 18:04:48 +0000
Subject: [PATCH] [project @ 2002-01-26 18:04:48 by rje] Minor tweak to use
 the new names.

X_ret_info -> X_info.

Just so the mangler finds things more easily.

For more info, see the commit to HeapStackCheck.hc
---
 ghc/rts/PrimOps.hc |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/rts/PrimOps.hc b/ghc/rts/PrimOps.hc
index d386f84..8e4f5e8 100644
--- a/ghc/rts/PrimOps.hc
+++ b/ghc/rts/PrimOps.hc
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: PrimOps.hc,v 1.88 2002/01/25 12:22:27 simonmar Exp $
+ * $Id: PrimOps.hc,v 1.89 2002/01/26 18:04:48 rje Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -1019,12 +1019,12 @@ FN_(newMVarzh_fast)
 
 #define PerformTake(tso, value) ({			\
     (tso)->sp[1] = (W_)value;				\
-    (tso)->sp[0] = (W_)&stg_gc_unpt_r1_ret_info;	\
+    (tso)->sp[0] = (W_)&stg_gc_unpt_r1_info;	\
   })
 
 #define PerformPut(tso) ({				\
     StgClosure *val = (StgClosure *)(tso)->sp[2];	\
-    (tso)->sp[2] = (W_)&stg_gc_noregs_ret_info;		\
+    (tso)->sp[2] = (W_)&stg_gc_noregs_info;		\
     (tso)->sp += 2;					\
     val;						\
   })
-- 
1.7.10.4