diff options
-rw-r--r-- | rts/Exception.cmm | 2 | ||||
-rw-r--r-- | rts/RaiseAsync.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/rts/Exception.cmm b/rts/Exception.cmm index 2e18a7aa42..e2fc5543bf 100644 --- a/rts/Exception.cmm +++ b/rts/Exception.cmm @@ -577,7 +577,7 @@ retry_pop_stack: Sp(0) = stg_unmaskAsyncExceptionszh_ret_info; } - /* Ensure that async excpetions are blocked when running the handler. + /* Ensure that async exceptions are blocked when running the handler. */ StgTSO_flags(CurrentTSO) = %lobits32( TO_W_(StgTSO_flags(CurrentTSO)) | TSO_BLOCKEX | TSO_INTERRUPTIBLE); diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index 86a16d3e08..a5440e40ad 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -923,7 +923,7 @@ raiseAsync(Capability *cap, StgTSO *tso, StgClosure *exception, // sp = frame - 1; - /* Ensure that async excpetions are blocked now, so we don't get + /* Ensure that async exceptions are blocked now, so we don't get * a surprise exception before we get around to executing the * handler. */ |