[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

diff --git a/ghc/rts/PrimOps.hc b/ghc/rts/PrimOps.hc
index d386f84..8e4f5e8 100644 (file)
--- 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;                                               \
   })