From c4574ceba6116cdeb9e2b25bec5e73aa4fefa9f3 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Wed, 1 Mar 2000 16:57:57 +0000
Subject: [PATCH] [project @ 2000-03-01 16:57:57 by sewardj]
 forceIO_ret_entry, when #ifndef REG_R1: remember to load
 Node.

---
 ghc/rts/StgMiscClosures.hc |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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
 
-- 
1.7.10.4