[commit: ghc] ghc-7.8: Fix copy/paste error (#8937) (8019d67)
git at git.haskell.org
git at git.haskell.org
Mon Apr 7 14:06:07 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : ghc-7.8
Link : http://ghc.haskell.org/trac/ghc/changeset/8019d674b20bfff676d84517f5dd460ff87e46d0/ghc
>---------------------------------------------------------------
commit 8019d674b20bfff676d84517f5dd460ff87e46d0
Author: Simon Marlow <marlowsd at gmail.com>
Date: Tue Apr 1 13:02:59 2014 +0100
Fix copy/paste error (#8937)
(cherry picked from commit 59b9b067b030d551f9b42423b50770c661c9d86c)
>---------------------------------------------------------------
8019d674b20bfff676d84517f5dd460ff87e46d0
rts/Exception.cmm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index e2fc554..553df3d 100644
--- a/rts/Exception.cmm
+++ b/rts/Exception.cmm
@@ -157,7 +157,7 @@ stg_maskAsyncExceptionszh /* explicit stack */
stg_maskUninterruptiblezh /* explicit stack */
{
/* Args: R1 :: IO a */
- STK_CHK_P_LL (WDS(1)/* worst case */, stg_maskAsyncExceptionszh, R1);
+ STK_CHK_P_LL (WDS(1)/* worst case */, stg_maskUninterruptiblezh, R1);
if ((TO_W_(StgTSO_flags(CurrentTSO)) & TSO_BLOCKEX) == 0) {
/* avoid growing the stack unnecessarily */
More information about the ghc-commits
mailing list