From 59b9b067b030d551f9b42423b50770c661c9d86c Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 1 Apr 2014 13:02:59 +0100
Subject: [PATCH] Fix copy/paste error (#8937)
---
rts/Exception.cmm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index e2fc5543bf0f..553df3dfdd08 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 */
--
GitLab