Andreas Klebinger pushed to branch wip/andreask/bomb_out at Glasgow Haskell Compiler / GHC Commits: 40785dff by Andreas Klebinger at 2025-10-02T19:18:22+02:00 Skip TooBig check in size_up - - - - - 1 changed file: - compiler/GHC/Core/Unfold.hs Changes: ===================================== compiler/GHC/Core/Unfold.hs ===================================== @@ -574,11 +574,7 @@ sizeExpr opts !bOMB_OUT_SIZE top_args expr = size_up sizeZero expr where -- (size_up s e) returns `s` plus the size of `e` - size_up :: ExprSize NoDiscount -> CoreExpr -> ExprSize WithDiscount - size_up TooBig !_ = TooBig - size_up (SizeIs !s _ d) _ - | assert (d == 0) $ s > bOMB_OUT_SIZE - = TooBig + size_up :: (ExprSize NoDiscount) -> CoreExpr -> ExprSize WithDiscount size_up s (Cast e _) = size_up s e size_up s (Tick _ e) = size_up s e size_up s (Type _) = withDiscount s -- Types cost nothing View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/40785dff24cabba149b6fe3c44a5ef30... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/40785dff24cabba149b6fe3c44a5ef30... You're receiving this email because of your account on gitlab.haskell.org.