From: simonmar <unknown>
Date: Tue, 12 Jul 2005 14:34:29 +0000 (+0000)
Subject: [project @ 2005-07-12 14:34:29 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~361
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c57fd840832f5061f0204101b5dd191108c74c16;p=ghc-hetmet.git

[project @ 2005-07-12 14:34:29 by simonmar]
Fix cut-n-pasto in previous commit
---

diff --git a/ghc/rts/HeapStackCheck.cmm b/ghc/rts/HeapStackCheck.cmm
index 55ef704..3635310 100644
--- 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;