[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