From: sewardj <unknown>
Date: Wed, 1 Mar 2000 16:57:57 +0000 (+0000)
Subject: [project @ 2000-03-01 16:57:57 by sewardj]
X-Git-Tag: Approximately_9120_patches~5074
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c4574ceba6116cdeb9e2b25bec5e73aa4fefa9f3;p=ghc-hetmet.git

[project @ 2000-03-01 16:57:57 by sewardj]
forceIO_ret_entry, when #ifndef REG_R1: remember to load Node.
---

diff --git a/ghc/rts/StgMiscClosures.hc b/ghc/rts/StgMiscClosures.hc
index 61393d1..c904f9d 100644
--- a/ghc/rts/StgMiscClosures.hc
+++ b/ghc/rts/StgMiscClosures.hc
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: StgMiscClosures.hc,v 1.35 2000/02/04 11:18:05 simonmar Exp $
+ * $Id: StgMiscClosures.hc,v 1.36 2000/03/01 16:57:57 sewardj Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -714,7 +714,8 @@ FN_(forceIO_ret_entry)
   Sp += 2;
   Sp -= sizeofW(StgSeqFrame);
   PUSH_SEQ_FRAME(Sp);
-  JMP_(GET_ENTRY(rval));
+  R1.cl = rval;
+  JMP_(GET_ENTRY(R1.cl));
 }
 #endif