From: sof <unknown>
Date: Tue, 26 Feb 2002 19:18:00 +0000 (+0000)
Subject: [project @ 2002-02-26 19:18:00 by sof]
X-Git-Tag: Approx_11550_changesets_converted~2348
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2a966c8ed5b083a6b33f61dc002ff5a62e79b2f8;p=ghc-hetmet.git

[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.
---

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_
 }