recursion-ninja pushed to branch wip/fix-26670 at Glasgow Haskell Compiler / GHC
Commits:
74ac93ee by recursion-ninja at 2025-12-18T19:01:51+00:00
Apply 1 suggestion(s) to 1 file(s)
Co-authored-by: sheaf
- - - - -
1 changed file:
- compiler/GHC/Types/InlinePragma.hs
Changes:
=====================================
compiler/GHC/Types/InlinePragma.hs
=====================================
@@ -106,9 +106,17 @@ import Data.Data
import Language.Haskell.Syntax.Binds.InlinePragma
import Language.Haskell.Syntax.Extension
-data InlinePragmaGhcTag = InlinePragmaGhcTag
- { inl_ghcrn_src :: {-# UNPACK#-} !SourceText
- , inl_ghcrn_arity :: {-# UNPACK#-} !Arity
+data XInlinePragmaGhc = XInlinePragmaGhc
+ { xinl_src :: SourceText
+ -- ^ See Note [Pragma source text]
+ , xinl_sat :: Maybe Arity
+ -- ^ @Just n@ <=> Inline only when applied to @n@ explicit
+ -- (non-type, non-dictionary) arguments.
+ --
+ -- That is, 'xinl_sat' describes the number of *source-code*
+ -- arguments the thing must be applied to. We add on the
+ -- number of implicit, dictionary arguments when making
+ -- the Unfolding, and don't look at inl_sat further
}
deriving (Eq, Data)
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/74ac93ee37f1c8e390ca84b1b2966981...
--
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/74ac93ee37f1c8e390ca84b1b2966981...
You're receiving this email because of your account on gitlab.haskell.org.
