Fix a float-out error
Ticket #24768 showed that the Simplifier was accidentally destroying a join point. It turned out to be that we were sending a bottoming join point to the top, accidentally abstracting over /other/ join points. Easily fixed.
Showing
- compiler/GHC/Core/Opt/SetLevels.hs 9 additions, 2 deletionscompiler/GHC/Core/Opt/SetLevels.hs
- testsuite/tests/simplCore/should_compile/T24768.hs 56 additions, 0 deletionstestsuite/tests/simplCore/should_compile/T24768.hs
- testsuite/tests/simplCore/should_compile/all.T 1 addition, 0 deletionstestsuite/tests/simplCore/should_compile/all.T
Loading
Please register or sign in to comment