[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 (file)
--- 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