[Git][ghc/ghc][wip/andreask/mkTickUnsafeCoerce] Don't push breakpoints because they are urkh

[Andreas Klebinger (@AndreasK)]

Andreas Klebinger pushed to branch wip/andreask/mkTickUnsafeCoerce at Glasgow Haskell Compiler / GHC


Commits:
d17c1c55 by Andreas Klebinger at 2024-10-16T18:54:24+02:00
Don't push breakpoints because they are urkh

- - - - -


1 changed file:

- compiler/GHC/Core/Utils.hs


Changes:

=====================================
compiler/GHC/Core/Utils.hs
=====================================
@@ -321,6 +321,8 @@ mkTick t orig_expr = mkTick' id id orig_expr
     -- Float ticks into unsafe coerce.
     Case scrut bndr ty alts@[Alt ac abs _rhs]
       | Just rhs <- isUnsafeEqualityCase scrut bndr alts
+      -- Breakpoints contain free variables which causes issues.
+      , Breakpoint{} <- t
       -> mkTick' (\e -> Case scrut bndr ty [Alt ac abs e]) rest rhs
 
     -- Cost centre ticks should never be reordered relative to each



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/d17c1c55397c9e1929d711b29a060b056fd3348a

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/d17c1c55397c9e1929d711b29a060b056fd3348a
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20241016/45b5b2a4/attachment.html>