[project @ 2005-07-12 14:34:29 by simonmar]

[ghc-hetmet.git] / ghc / rts / HeapStackCheck.cmm

diff --git a/ghc/rts/HeapStackCheck.cmm b/ghc/rts/HeapStackCheck.cmm
index 55ef704..3635310 100644 (file)
--- a/ghc/rts/HeapStackCheck.cmm
+++ b/ghc/rts/HeapStackCheck.cmm
@@ -89,7 +89,7 @@
   jump stg_returnToSched;
 
 #define BLOCK_BUT_FIRST(c)                     \
-  PRE_RETURN(ThreadYielding, ThreadRunGHC)     \
+  PRE_RETURN(ThreadBlocked, ThreadRunGHC)      \
   R2 = c;                                      \
   jump stg_returnToSchedButFirst;