From 2a966c8ed5b083a6b33f61dc002ff5a62e79b2f8 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 26 Feb 2002 19:18:00 +0000
Subject: [PATCH] [project @ 2002-02-26 19:18:00 by sof] stg_gc_unbx_r1: fixed
 what was surely a typo in the 06/07/01 commit which instead
 of pushing an info pointer, started pushing the entry code
 (stg_gc_unbx_r1_ret).

Unbreaks the mini-interpreter.
---
 ghc/rts/HeapStackCheck.hc |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/rts/HeapStackCheck.hc b/ghc/rts/HeapStackCheck.hc
index 6247c4a..63e09c9 100644
--- a/ghc/rts/HeapStackCheck.hc
+++ b/ghc/rts/HeapStackCheck.hc
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: HeapStackCheck.hc,v 1.21 2002/01/26 17:58:47 rje Exp $
+ * $Id: HeapStackCheck.hc,v 1.22 2002/02/26 19:18:00 sof Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -706,7 +706,7 @@ EXTFUN(stg_gc_unbx_r1)
   FB_
   Sp -= 2;
   Sp[1] = R1.w;
-  Sp[0] = (W_)&stg_gc_unbx_r1_ret;
+  Sp[0] = (W_)&stg_gc_unbx_r1_info;
   GC_GENERIC
   FE_
 }
-- 
1.7.10.4