X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FHeapStackCheck.hc;fp=ghc%2Frts%2FHeapStackCheck.hc;h=36c6090dba4350668cce4660dc39a41927db6b67;hb=53d50b9c155b7deb44267100aa58497b0eedde9f;hp=23de4fe3872bf846a2737dcaa8c747dc6efcc789;hpb=35014cf1724f9d832f2f9a3e7e78ee966b4d4a3f;p=ghc-hetmet.git

diff --git a/ghc/rts/HeapStackCheck.hc b/ghc/rts/HeapStackCheck.hc
index 23de4fe..36c6090 100644
--- a/ghc/rts/HeapStackCheck.hc
+++ b/ghc/rts/HeapStackCheck.hc
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: HeapStackCheck.hc,v 1.14 2000/03/31 03:09:36 hwloidl Exp $
+ * $Id: HeapStackCheck.hc,v 1.15 2000/12/14 15:19:48 sewardj Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -105,9 +105,9 @@
   R1.i = ThreadYielding;		\
   JMP_(StgReturn);
 
-#define YIELD_TO_HUGS			  \
+#define YIELD_TO_INTERPRETER		  \
   SaveThreadState();			  \
-  CurrentTSO->what_next = ThreadEnterHugs; \
+  CurrentTSO->what_next = ThreadEnterInterp; \
   R1.i = ThreadYielding;		  \
   JMP_(StgReturn);
 
@@ -1177,11 +1177,11 @@ FN_(stg_yield_noregs)
   FE_
 }
 
-FN_(stg_yield_to_Hugs)
+FN_(stg_yield_to_interpreter)
 {
   FB_
   /* No need to save everything - no live registers */
-  YIELD_TO_HUGS
+  YIELD_TO_INTERPRETER
   FE_
 }