<div dir="ltr">Hi,<div><br></div><div>I am by no means an expert on the GHC RTS but all 3 suggestions seem quite reasonable to me.   A good way to make a decision might be to collect some data, at least for the things that might be easy to measure.   In particular, it would be interesting to temporarily disable the optimization and run some benchmarks on some IO/exceptions heavy code (some sort of server?  or maybe a synthetic benchmark to really stress the masking/unmaksing) and see what's the change in performance.</div><div><br></div><div>-Iavor</div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Wed, Jul 1, 2020 at 12:13 PM Alexis King <<a href="mailto:lexi.lambda@gmail.com">lexi.lambda@gmail.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Hi all,<br>
<br>
As some of you are likely aware, I have an open GHC proposal[1] to add<br>
native support for delimited continuations to the RTS. I also have an<br>
incomplete implementation,[2] and the only major remaining obstacle<br>
concerns async exceptions. The issue is subtle, so I’ve tried to<br>
provide all the necessary context in this email. If you’re already<br>
familiar with the ideas at play, you can skip the context about how<br>
delimited continuations work.<br>
<br>
For those unfamiliar, delimited continuations allow capturing slices<br>
of the call stack and restoring them later. For example, the program<br>
<br>
    do y <- prompt $ do x <- control0 $ \k -> k (pure 10)<br>
                        pure (x + 5)<br>
       print y<br>
<br>
will print 15. To understand what’s happening operationally, we can<br>
imagine an abstract call stack made up of continuation frames:<br>
<br>
    ┌──────────┐<br>
    │  ● + 5   │    redex: control0 $ \k -> k (pure 10)<br>
    ├──────────┤<br>
    │ prompt ● │<br>
    ├──────────┤<br>
    │ print ●  │<br>
    ├──────────┤<br>
    │   ...    │<br>
    ├──────────┤<br>
<br>
Here, each ● represents the “hole” where the evaluated result of the<br>
redex will be returned. `control0` moves all the frames between the<br>
top of the stack and the first `prompt` into the heap and returns a<br>
reference to them, so after a single reduction step, we have<br>
<br>
    ┌──────────┐<br>
    │ print ●  │    redex: k1 (pure 10)<br>
    ├──────────┤    heap:  k1 = ┌──────────┐<br>
    │   ...    │                │  ● + 5   │<br>
    ├──────────┤                └──────────┘<br>
<br>
When a continuation is applied, its stored stack frames are copied<br>
back onto the top of the current stack, and the argument becomes the<br>
new redex:<br>
<br>
    ┌──────────┐<br>
    │  ● + 5   │    redex: pure 10<br>
    ├──────────┤<br>
    │ print ●  │<br>
    ├──────────┤<br>
    │   ...    │<br>
    ├──────────┤<br>
<br>
Now it should hopefully be clear how we end up printing 15.<br>
<br>
With that context, consider the following expression:<br>
<br>
    prompt $ mask_ $ do x <- control0 $ \k -> k (pure 10)<br>
                        f x<br>
<br>
The call stack at the point of control0 looks very similar in this<br>
program, but now we have a use of `mask_` in there as well:<br>
<br>
    ┌──────────┐<br>
    │   f ●    │    redex: control0 $ \k -> k (pure 10)<br>
    ├──────────┤    exns:  masked<br>
    │ mask_ ●  │<br>
    ├──────────┤<br>
    │ prompt ● │<br>
    ├──────────┤<br>
    │   ...    │<br>
    ├──────────┤<br>
<br>
When capturing the continuation, we’ll unwind the stack the same way<br>
we did before. Because we’re popping mask_ off the stack, we’ll unmask<br>
async exceptions:<br>
<br>
    ┌──────────┐    redex: k1 (pure 10)<br>
    │   ...    │    exns:  not masked<br>
    ├──────────┤    heap:  k1 = ┌──────────┐<br>
                                │   f ●    │<br>
                                ├──────────┤<br>
                                │ mask_ ●  │<br>
                                └──────────┘<br>
<br>
Now when we apply `k1`, we’ll copy the `mask_` frame back onto the<br>
stack, and we must re-mask async exceptions. Otherwise, exceptions<br>
will not be masked during the call to `f`, which would be wrong.<br>
<br>
Why is this a problem? The RTS applies an optimization: if you call<br>
mask_ (actually maskAsyncExceptions#) while exceptions are already<br>
masked, it doesn’t push a new stack frame at all. So, for example, if<br>
you write<br>
<br>
    mask_ $ mask_ $ foo bar<br>
<br>
you’ll end up with only one mask_ frame on the call stack, not two.<br>
This tiny optimization actually allows not one but two savings:<br>
<br>
    1. The immediate benefit is that we save a stack frame.<br>
<br>
    2. The hidden benefit is that we never need to push the old<br>
       exception masking state onto the stack.<br>
<br>
       If we had multiple mask_ frames on the stack simultaneously, we<br>
       wouldn’t know what to do when returning: should we unmask them,<br>
       or should they stay masked? We’d need to push that information<br>
       onto the stack in the same way we must push a return address<br>
       when calling a function.<br>
<br>
       By skipping these redundant stack frames, we can always be<br>
       certain the right thing to do on return is to unmask async<br>
       exceptions. No need to store anything else.<br>
<br>
(This explanation is a slight simplification, especially once<br>
maskUninterruptible comes into play, but it’s close enough.)<br>
<br>
Now you may see the looming problem: this strategy completely breaks<br>
down in the presence of delimited continuations. With delimited<br>
continuations, we might have a program like this:<br>
<br>
    mask_ $ prompt $ mask_ $ ...<br>
<br>
If we capture a continuation up to this prompt, we expect the inner<br>
mask_ frame to be captured along with it. But that won’t happen if we<br>
never pushed a mask_ frame at all due to the aforementioned<br>
optimization.<br>
<br>
So now I can finally state my question: what is the right solution for<br>
this? I see three obvious possible ways forward:<br>
<br>
    1. Keep track of whether or not we’re inside a prompt and skip the<br>
       optimization in that case.<br>
<br>
    2. Keep some bookkeeping that tracks the modifications to the<br>
       async exception masking state since the most recently pushed<br>
       prompt.<br>
<br>
    3. Just don’t bother with the optimization at all.<br>
<br>
Option 3 certainly seems the most appealing from a simplicity point of<br>
view, and I suspect the optimization doesn’t matter much in practice.<br>
Why? Because the real `mask` implementation from Control.Exception<br>
already avoids re-masking exceptions if they’re masked! (And that’s<br>
okay, because prompt# and control0# are not intended to be used<br>
directly in IO, so code that uses them can provide its own version of<br>
`mask`.) However, it is admittedly possible for the restore action<br>
passed to the argument of `mask` to create redundant calls, as the<br>
check is only performed in `mask` itself.<br>
<br>
Is eliminating this optimization an acceptable compromise? Or is there<br>
reason to believe this is important for performance of real programs?<br>
<br>
Thanks,<br>
Alexis<br>
<br>
[1]: <a href="https://github.com/ghc-proposals/ghc-proposals/pull/313" rel="noreferrer" target="_blank">https://github.com/ghc-proposals/ghc-proposals/pull/313</a><br>
[2]: <a href="https://gitlab.haskell.org/lexi.lambda/ghc/-/commits/first-class-continuations" rel="noreferrer" target="_blank">https://gitlab.haskell.org/lexi.lambda/ghc/-/commits/first-class-continuations</a><br>
_______________________________________________<br>
ghc-devs mailing list<br>
<a href="mailto:ghc-devs@haskell.org" target="_blank">ghc-devs@haskell.org</a><br>
<a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/ghc-devs" rel="noreferrer" target="_blank">http://mail.haskell.org/cgi-bin/mailman/listinfo/ghc-devs</a><br>
</blockquote></div>