May 2025 - ghc-commits

[Git][ghc/ghc][wip/T23109a] Try inlining after simplifying the arguments
by Simon Peyton Jones (＠simonpj) 16 May '25

16 May '25

Simon Peyton Jones pushed to branch wip/T23109a at Glasgow Haskell Compiler / GHC Commits: fb2d5dee by Simon Peyton Jones at 2025-05-15T23:17:57-04:00 Try inlining after simplifying the arguments - - - - - 5 changed files: - compiler/GHC/Core/Opt/Simplify.hs - compiler/GHC/Core/Opt/Simplify/Env.hs - compiler/GHC/Core/Opt/Simplify/Iteration.hs - compiler/GHC/Core/Opt/Simplify/Utils.hs - compiler/GHC/Driver/Config/Core/Opt/Simplify.hs Changes: ===================================== compiler/GHC/Core/Opt/Simplify.hs ===================================== @@ -156,7 +156,7 @@ simplifyPgm logger unit_env name_ppr_ctx opts && logHasDumpFlag logger Opt_D_dump_simpl_stats) $ logDumpMsg logger "Simplifier statistics for following pass" - (vcat [text termination_msg <+> text "after" <+> ppr it_count + (vcat [text termination_msg <+> text "after" <+> ppr (it_count-1) <+> text "iterations", blankLine, pprSimplCount counts_out]) @@ -240,7 +240,8 @@ simplifyPgm logger unit_env name_ppr_ctx opts ; read_rule_env = updExternalPackageRules base_rule_env <$> read_eps_rules ; fam_envs = (eps_fam_inst_env eps, fam_inst_env) - ; simpl_env = mkSimplEnv mode fam_envs } ; + ; iter_mode = mode { sm_first_iter = iteration_no ==1 } + ; simpl_env = mkSimplEnv iter_mode fam_envs } ; -- Simplify the program ((binds1, rules1), counts1) <- ===================================== compiler/GHC/Core/Opt/Simplify/Env.hs ===================================== @@ -272,32 +272,35 @@ seUnfoldingOpts env = sm_uf_opts (seMode env) -- See Note [The environments of the Simplify pass] data SimplMode = SimplMode -- See comments in GHC.Core.Opt.Simplify.Monad - { sm_phase :: !CompilerPhase - , sm_names :: ![String] -- ^ Name(s) of the phase - , sm_rules :: !Bool -- ^ Whether RULES are enabled - , sm_inline :: !Bool -- ^ Whether inlining is enabled - , sm_eta_expand :: !Bool -- ^ Whether eta-expansion is enabled - , sm_cast_swizzle :: !Bool -- ^ Do we swizzle casts past lambdas? - , sm_uf_opts :: !UnfoldingOpts -- ^ Unfolding options - , sm_case_case :: !Bool -- ^ Whether case-of-case is enabled - , sm_pre_inline :: !Bool -- ^ Whether pre-inlining is enabled - , sm_float_enable :: !FloatEnable -- ^ Whether to enable floating out + { sm_phase :: !CompilerPhase + , sm_names :: ![String] -- ^ Name(s) of the phase + , sm_first_iter :: !Bool -- ^ True <=> first iteration + -- False <=> second or subsequent iteration + , sm_rules :: !Bool -- ^ Whether RULES are enabled + , sm_inline :: !Bool -- ^ Whether inlining is enabled + , sm_eta_expand :: !Bool -- ^ Whether eta-expansion is enabled + , sm_cast_swizzle :: !Bool -- ^ Do we swizzle casts past lambdas? + , sm_uf_opts :: !UnfoldingOpts -- ^ Unfolding options + , sm_case_case :: !Bool -- ^ Whether case-of-case is enabled + , sm_pre_inline :: !Bool -- ^ Whether pre-inlining is enabled + , sm_float_enable :: !FloatEnable -- ^ Whether to enable floating out , sm_do_eta_reduction :: !Bool - , sm_arity_opts :: !ArityOpts - , sm_rule_opts :: !RuleOpts - , sm_case_folding :: !Bool - , sm_case_merge :: !Bool - , sm_co_opt_opts :: !OptCoercionOpts -- ^ Coercion optimiser options + , sm_arity_opts :: !ArityOpts + , sm_rule_opts :: !RuleOpts + , sm_case_folding :: !Bool + , sm_case_merge :: !Bool + , sm_co_opt_opts :: !OptCoercionOpts -- ^ Coercion optimiser options } instance Outputable SimplMode where ppr (SimplMode { sm_phase = p , sm_names = ss - , sm_rules = r, sm_inline = i + , sm_first_iter = fi, sm_rules = r, sm_inline = i , sm_cast_swizzle = cs , sm_eta_expand = eta, sm_case_case = cc }) = text "SimplMode" <+> braces ( sep [ text "Phase =" <+> ppr p <+> brackets (text (concat $ intersperse "," ss)) <> comma + , pp_flag fi (text "first-iter") <> comma , pp_flag i (text "inline") <> comma , pp_flag r (text "rules") <> comma , pp_flag eta (text "eta-expand") <> comma ===================================== compiler/GHC/Core/Opt/Simplify/Iteration.hs ===================================== @@ -2342,11 +2342,19 @@ simplOutId env fun cont -- Normal case for (f e1 .. en) simplOutId env fun cont - = -- Try rewrite rules: Plan (BEFORE) in Note [When to apply rewrite rules] - do { rule_base <- getSimplRules + = do { rule_base <- getSimplRules ; let rules_for_me = getRules rule_base fun + arg_info = mkArgInfo env fun rules_for_me cont out_args = contOutArgs env cont :: [OutExpr] - ; mb_match <- if not (null rules_for_me) && + + -- If we are not in the first iteration, we have already tried rules and inlining + -- at the end of the previous iteration; no need to repeat that + ; if not (sm_first_iter (seMode env)) + then rebuildCall env arg_info cont + else + + -- Try rewrite rules: Plan (BEFORE) in Note [When to apply rewrite rules] + do { mb_match <- if not (null rules_for_me) && (isClassOpId fun || activeUnfolding (seMode env) fun) then tryRules env rules_for_me fun out_args else return Nothing @@ -2357,15 +2365,13 @@ simplOutId env fun cont -- Try inlining do { logger <- getLogger - ; mb_inline <- tryInlining env logger fun cont + ; mb_inline <- tryInlining env logger fun (contArgs cont) ; case mb_inline of{ - Just expr -> do { checkedTick (UnfoldingDone fun) - ; simplExprF env expr cont } ; + Just expr -> simplExprF env expr cont ; Nothing -> -- Neither worked, so just rebuild - do { let arg_info = mkArgInfo env fun rules_for_me cont - ; rebuildCall env arg_info cont + rebuildCall env arg_info cont } } } } } --------------------------------------------------------- @@ -2438,28 +2444,39 @@ rebuildCall env fun_info ---------- No further useful info, revert to generic rebuild ------------ rebuildCall env (ArgInfo { ai_fun = fun, ai_args = rev_args, ai_rules = rules }) cont - | null rules - = rebuild env (argInfoExpr fun rev_args) cont - | otherwise -- Try rules again: Plan (AFTER) in Note [When to apply rewrite rules] = do { let args = reverse rev_args - ; mb_match <- tryRules env rules fun (map argSpecArg args) - ; case mb_match of + + -- Try rules again: Plan (AFTER) in Note [When to apply rewrite rules] + ; mb_match <- if null rules + then return Nothing + else tryRules env rules fun (map argSpecArg args) + ; case mb_match of { Just (rule_arity, rhs) -> simplExprF env rhs $ - pushSimplifiedArgs env (drop rule_arity args) cont - Nothing -> rebuild env (argInfoExpr fun rev_args) cont } + pushSimplifiedArgs env (drop rule_arity args) cont ; + Nothing -> + + do { logger <- getLogger + ; mb_inline <- tryInlining env logger fun (null args, argSummaries env args, cont) + ; case mb_inline of + Just body -> simplExprF env body $ + pushSimplifiedArgs env args cont + Nothing -> rebuild env (argInfoExpr fun rev_args) cont + } } } ----------------------------------- -tryInlining :: SimplEnv -> Logger -> OutId -> SimplCont -> SimplM (Maybe OutExpr) -tryInlining env logger var cont - | Just expr <- callSiteInline env logger var lone_variable arg_infos interesting_cont - = do { dump_inline expr cont +tryInlining :: SimplEnv -> Logger -> OutId + -> (Bool, [ArgSummary], SimplCont) + -> SimplM (Maybe OutExpr) +tryInlining env logger fun (lone_variable, arg_infos, call_cont) + | Just expr <- callSiteInline env logger fun lone_variable arg_infos interesting_cont + = do { dump_inline expr call_cont + ; checkedTick (UnfoldingDone fun) ; return (Just expr) } | otherwise = return Nothing where - (lone_variable, arg_infos, call_cont) = contArgs cont interesting_cont = interestingCallContext env call_cont log_inlining doc @@ -2470,12 +2487,12 @@ tryInlining env logger var cont dump_inline unfolding cont | not (logHasDumpFlag logger Opt_D_dump_inlinings) = return () | not (logHasDumpFlag logger Opt_D_verbose_core2core) - = when (isExternalName (idName var)) $ + = when (isExternalName (idName fun)) $ log_inlining $ - sep [text "Inlining done:", nest 4 (ppr var)] + sep [text "Inlining done:", nest 4 (ppr fun)] | otherwise = log_inlining $ - sep [text "Inlining done: " <> ppr var, + sep [text "Inlining done: " <> ppr fun, nest 4 (vcat [text "Inlined fn: " <+> nest 2 (ppr unfolding), text "Cont: " <+> ppr cont])] ===================================== compiler/GHC/Core/Opt/Simplify/Utils.hs ===================================== @@ -24,7 +24,7 @@ module GHC.Core.Opt.Simplify.Utils ( SimplCont(..), DupFlag(..), FromWhat(..), StaticEnv, isSimplified, contIsStop, contIsDupable, contResultType, contHoleType, contHoleScaling, - contIsTrivial, contArgs, contIsRhs, + contIsTrivial, contArgs, contIsRhs, argSummaries, countArgs, contOutArgs, dropContArgs, mkBoringStop, mkRhsStop, mkLazyArgStop, interestingCallContext, @@ -537,15 +537,11 @@ contArgs cont lone _ = True go args (ApplyToVal { sc_arg = arg, sc_env = se, sc_cont = k }) - = go (is_interesting arg se : args) k + = go (argSummary se arg : args) k go args (ApplyToTy { sc_cont = k }) = go args k go args (CastIt { sc_cont = k }) = go args k go args k = (False, reverse args, k) - is_interesting arg se = interestingArg se arg - -- Do *not* use short-cutting substitution here - -- because we want to get as much IdInfo as possible - contOutArgs :: SimplEnv -> SimplCont -> [OutExpr] -- Get the leading arguments from the `SimplCont`, as /OutExprs/ contOutArgs env cont @@ -887,6 +883,15 @@ strictArgContext (ArgInfo { ai_encl = encl_rules, ai_discs = discs }) -- Why NonRecursive? Becuase it's a bit like -- let a = g x in f a +argSummaries :: SimplEnv -> [ArgSpec] -> [ArgSummary] +argSummaries env args + = go args + where + env' = zapSubstEnv env -- The args are simplified already + go [] = [] + go (TyArg {} : args) = go args + go (ValArg { as_arg = arg } : args) = argSummary env' arg : go args + interestingCallContext :: SimplEnv -> SimplCont -> CallCtxt -- See Note [Interesting call context] interestingCallContext env cont @@ -990,9 +995,9 @@ rule for (*) (df d) can fire. To do this b) we say that a con-like argument (eg (df d)) is interesting -} -interestingArg :: SimplEnv -> CoreExpr -> ArgSummary +argSummary :: SimplEnv -> CoreExpr -> ArgSummary -- See Note [Interesting arguments] -interestingArg env e = go env 0 e +argSummary env e = go env 0 e where -- n is # value args to which the expression is applied go env n (Var v) @@ -1000,6 +1005,8 @@ interestingArg env e = go env 0 e DoneId v' -> go_var n v' DoneEx e _ -> go (zapSubstEnv env) n e ContEx tvs cvs ids e -> go (setSubstEnv env tvs cvs ids) n e + -- NB: substId looks up in the InScopeSet: + -- we want to get as much IdInfo as possible go _ _ (Lit l) | isLitRubbish l = TrivArg -- Leads to unproductive inlining in WWRec, #20035 ===================================== compiler/GHC/Driver/Config/Core/Opt/Simplify.hs ===================================== @@ -60,6 +60,7 @@ initSimplMode :: DynFlags -> CompilerPhase -> String -> SimplMode initSimplMode dflags phase name = SimplMode { sm_names = [name] , sm_phase = phase + , sm_first_iter = True , sm_rules = gopt Opt_EnableRewriteRules dflags , sm_eta_expand = gopt Opt_DoLambdaEtaExpansion dflags , sm_cast_swizzle = True View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/fb2d5dee8f50052bb3cc0bcaec37de7… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/fb2d5dee8f50052bb3cc0bcaec37de7… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/int-index/data-namespace-specifier] 4 commits: Rename ieNameWrapper to ieLIEWrappedName
by Vladislav Zavialov (＠int-index) 16 May '25

16 May '25

Vladislav Zavialov pushed to branch wip/int-index/data-namespace-specifier at Glasgow Haskell Compiler / GHC Commits: 75581dc4 by Vladislav Zavialov at 2025-05-12T16:19:44+03:00 Rename ieNameWrapper to ieLIEWrappedName - - - - - 5e1622f6 by Vladislav Zavialov at 2025-05-12T18:32:40+03:00 Comments for the BadImportAvailTyCon case - - - - - d193cd14 by Vladislav Zavialov at 2025-05-15T15:39:44+03:00 Documentation edits - - - - - bbd4f1e2 by Vladislav Zavialov at 2025-05-16T01:16:52+03:00 Rewrite import suggestions - - - - - 14 changed files: - compiler/GHC/Hs/ImpExp.hs - compiler/GHC/Tc/Errors/Ppr.hs - compiler/GHC/Tc/Errors/Types.hs - compiler/GHC/Types/Hint.hs - compiler/GHC/Types/Hint/Ppr.hs - docs/users_guide/exts/explicit_namespaces.rst - testsuite/tests/rename/should_compile/T22581d.stdout - testsuite/tests/rename/should_compile/T25899d.stdout - testsuite/tests/rename/should_fail/T22581a.stderr - testsuite/tests/rename/should_fail/T22581b.stderr - + testsuite/tests/rename/should_fail/T25899f.hs - + testsuite/tests/rename/should_fail/T25899f.stderr - + testsuite/tests/rename/should_fail/T25899f_helper.hs - testsuite/tests/rename/should_fail/all.T Changes: ===================================== compiler/GHC/Hs/ImpExp.hs ===================================== @@ -255,15 +255,15 @@ type instance XXIE (GhcPass _) = DataConCantHappen type instance Anno (LocatedA (IE (GhcPass p))) = SrcSpanAnnA -ieNameWrapper :: IE (GhcPass p) -> LIEWrappedName (GhcPass p) -ieNameWrapper (IEVar _ n _) = n -ieNameWrapper (IEThingAbs _ n _) = n -ieNameWrapper (IEThingWith _ n _ _ _) = n -ieNameWrapper (IEThingAll _ n _) = n -ieNameWrapper _ = panic "ieNameWrapper failed pattern match!" +ieLIEWrappedName :: IE (GhcPass p) -> LIEWrappedName (GhcPass p) +ieLIEWrappedName (IEVar _ n _) = n +ieLIEWrappedName (IEThingAbs _ n _) = n +ieLIEWrappedName (IEThingWith _ n _ _ _) = n +ieLIEWrappedName (IEThingAll _ n _) = n +ieLIEWrappedName _ = panic "ieLIEWrappedName failed pattern match!" ieName :: IE (GhcPass p) -> IdP (GhcPass p) -ieName = lieWrappedName . ieNameWrapper +ieName = lieWrappedName . ieLIEWrappedName ieNames :: IE (GhcPass p) -> [IdP (GhcPass p)] ieNames (IEVar _ (L _ n) _) = [ieWrappedName n] ===================================== compiler/GHC/Tc/Errors/Ppr.hs ===================================== @@ -3294,19 +3294,46 @@ instance Diagnostic TcRnMessage where TcRnImportLookup (ImportLookupBad k _ is ie exts) -> let mod_name = moduleName $ is_mod is occ = rdrNameOcc $ ieName ie - could_remove kw = [ImportSuggestion occ $ CouldRemoveImportItemKeyword mod_name kw] + could_change_item item_suggestion = + [useExtensionInOrderTo empty LangExt.ExplicitNamespaces | suggest_ext] ++ + [ ImportSuggestion occ $ + CouldChangeImportItem mod_name item_suggestion ] + where + suggest_ext + | ile_explicit_namespaces exts = False -- extension already on + | otherwise = + case item_suggestion of + -- ImportItemRemove* -> False + ImportItemRemoveType{} -> False + ImportItemRemoveData{} -> False + ImportItemRemovePattern{} -> False + ImportItemRemoveSubordinateType{} -> False + ImportItemRemoveSubordinateData{} -> False + -- ImportItemAdd* -> True + ImportItemAddType{} -> True in case k of - BadImportAvailVar -> could_remove ImportItemUnwantedKeywordType + BadImportAvailVar -> could_change_item ImportItemRemoveType BadImportNotExported suggs -> suggs BadImportAvailTyCon - | isSymOcc occ -> -- type operators always require the 'type' keyword - [useExtensionInOrderTo empty LangExt.ExplicitNamespaces | not (ile_explicit_namespaces exts) ] - ++ [ ImportSuggestion occ $ CouldAddTypeKeyword mod_name ] - | otherwise -> - case unLoc (ieNameWrapper ie) of - IEData{} -> could_remove ImportItemUnwantedKeywordData - IEPattern{} -> could_remove ImportItemUnwantedKeywordPattern - _ -> noHints + -- BadImportAvailTyCon means a name is available in the TcCls namespace + -- but name resolution could not use it. Possible reasons for that: + -- 1. Case (TyOp) `import M ((#))` or `import M (data (#))` + -- The user tried to import a type operator without using the `type` keyword, + -- or using a different keyword. Suggested fix: add 'type'. + -- 2. Case (DataKw) `import M (data T)` + -- The user tried to import a non-operator type constructor, but mistakenly + -- used the `data` keyword, which restricted the lookup to the value namespace. + -- Suggested fix: remove 'data'; no need to add 'type' for non-operators. + -- 3. Case (PatternKw) `import M (pattern T)` + -- Same as the (DataKw) case, mutatis mutandis. + -- Any other case would not have resulted in BadImportAvailTyCon. + | isSymOcc occ -> could_change_item ImportItemAddType -- Case (TyOp) + | otherwise -> -- Non-operator cases + case unLoc (ieLIEWrappedName ie) of + IEData{} -> could_change_item ImportItemRemoveData -- Case (DataKw) + IEPattern{} -> could_change_item ImportItemRemovePattern -- Case (PatternKw) + _ -> panic "diagnosticHints: unexpected BadImportAvailTyCon" + BadImportAvailDataCon par -> [ ImportSuggestion occ $ ImportDataCon { ies_suggest_import_from = Just mod_name @@ -3315,8 +3342,10 @@ instance Diagnostic TcRnMessage where , ies_suggest_data_keyword = ile_explicit_namespaces exts , ies_parent = par } ] BadImportNotExportedSubordinates{} -> noHints - BadImportNonTypeSubordinates{} -> noHints - BadImportNonDataSubordinates{} -> noHints + BadImportNonTypeSubordinates _ nontype1 -> + could_change_item (ImportItemRemoveSubordinateType (nameOccName . greName <$> nontype1)) + BadImportNonDataSubordinates _ nondata1 -> + could_change_item (ImportItemRemoveSubordinateData (nameOccName . greName <$> nondata1)) TcRnImportLookup{} -> noHints TcRnUnusedImport{} ===================================== compiler/GHC/Tc/Errors/Types.hs ===================================== @@ -5841,9 +5841,9 @@ data BadImportKind | BadImportNotExportedSubordinates !GlobalRdrElt (NonEmpty FastString) -- | Incorrect @type@ keyword when importing subordinates that aren't types. | BadImportNonTypeSubordinates !GlobalRdrElt (NonEmpty GlobalRdrElt) - -- | Incorrect @type@ keyword when importing something which isn't a type. - | BadImportNonDataSubordinates !GlobalRdrElt (NonEmpty GlobalRdrElt) -- | Incorrect @data@ keyword when importing something which isn't a term. + | BadImportNonDataSubordinates !GlobalRdrElt (NonEmpty GlobalRdrElt) + -- | Incorrect @type@ keyword when importing something which isn't a type. | BadImportAvailVar deriving Generic ===================================== compiler/GHC/Types/Hint.hs ===================================== @@ -5,7 +5,7 @@ module GHC.Types.Hint ( , AvailableBindings(..) , InstantiationSuggestion(..) , LanguageExtensionHint(..) - , ImportItemUnwantedKeyword(..) + , ImportItemSuggestion(..) , ImportSuggestion(..) , HowInScope(..) , SimilarName(..) @@ -538,10 +538,13 @@ instance Outputable AssumedDerivingStrategy where -- replacing <MyStr> as necessary.) data InstantiationSuggestion = InstantiationSuggestion !ModuleName !Module -data ImportItemUnwantedKeyword = - ImportItemUnwantedKeywordType - | ImportItemUnwantedKeywordData - | ImportItemUnwantedKeywordPattern +data ImportItemSuggestion = + ImportItemRemoveType + | ImportItemRemoveData + | ImportItemRemovePattern + | ImportItemRemoveSubordinateType (NE.NonEmpty OccName) + | ImportItemRemoveSubordinateData (NE.NonEmpty OccName) + | ImportItemAddType -- | Suggest how to fix an import. data ImportSuggestion @@ -549,10 +552,8 @@ data ImportSuggestion = CouldImportFrom (NE.NonEmpty (Module, ImportedModsVal)) -- | Some module exports what we want, but we are explicitly hiding it. | CouldUnhideFrom (NE.NonEmpty (Module, ImportedModsVal)) - -- | The module exports what we want, but it isn't in the requested namespace. - | CouldRemoveImportItemKeyword ModuleName ImportItemUnwantedKeyword - -- | The module exports what we want, but it's a type and we have @ExplicitNamespaces@ on. - | CouldAddTypeKeyword ModuleName + -- | The module exports what we want, but the import item requires modification. + | CouldChangeImportItem ModuleName ImportItemSuggestion -- | Suggest importing a data constructor to bring it into scope | ImportDataCon -- | Where to suggest importing the 'DataCon' from. ===================================== compiler/GHC/Types/Hint/Ppr.hs ===================================== @@ -340,27 +340,39 @@ pprImportSuggestion occ_name (CouldUnhideFrom mods) [ quotes (ppr mod) <+> parens (text "at" <+> ppr (imv_span imv)) | (mod,imv) <- NE.toList mods ]) -pprImportSuggestion occ_name (CouldAddTypeKeyword mod) - = vcat [ text "Add the" <+> quotes (text "type") - <+> text "keyword to the import statement:" - , nest 2 $ text "import" - <+> ppr mod - <+> parens_sp (text "type" <+> pprPrefixOcc occ_name) - ] +pprImportSuggestion occ_name (CouldChangeImportItem mod kw) + = case kw of + ImportItemRemoveType -> remove "type" + ImportItemRemoveData -> remove "data" + ImportItemRemovePattern -> remove "pattern" + ImportItemRemoveSubordinateType nontype1 -> remove_subordinate "type" (NE.toList nontype1) + ImportItemRemoveSubordinateData nondata1 -> remove_subordinate "data" (NE.toList nondata1) + ImportItemAddType -> add "type" where parens_sp d = parens (space <> d <> space) -pprImportSuggestion occ_name (CouldRemoveImportItemKeyword mod kw) - = vcat [ text "Remove the" <+> quotes (text kw_str) - <+> text "keyword from the import statement:" - , nest 2 $ text "import" - <+> ppr mod - <+> parens_sp (pprPrefixOcc occ_name) ] - where - parens_sp d = parens (space <> d <> space) - kw_str = case kw of - ImportItemUnwantedKeywordType -> "type" - ImportItemUnwantedKeywordData -> "data" - ImportItemUnwantedKeywordPattern -> "pattern" + remove kw = + vcat [ text "Remove the" <+> quotes (text kw) + <+> text "keyword from the import statement:" + , nest 2 $ text "import" <+> ppr mod <+> import_list ] + where + import_list = parens_sp (pprPrefixOcc occ_name) + add kw = + vcat [ text "Add the" <+> quotes (text kw) + <+> text "keyword to the import statement:" + , nest 2 $ text "import" <+> ppr mod <+> import_list ] + where + import_list = parens_sp (text kw <+> pprPrefixOcc occ_name) + remove_subordinate kw sub_occs = + vcat [ text "Remove the" <+> quotes (text kw) + <+> text "keyword" <> plural sub_occs + <+> text "from the subordinate import item" <> plural sub_occs <> colon + , nest 2 $ text "import" <+> ppr mod <+> import_list ] + where + parent_item + | isSymOcc occ_name = text "type" <+> pprPrefixOcc occ_name + | otherwise = pprPrefixOcc occ_name + import_list = parens_sp (parent_item <+> sub_import_list) + sub_import_list = parens_sp (hsep (punctuate comma (map pprPrefixOcc sub_occs))) pprImportSuggestion dc_occ (ImportDataCon { ies_suggest_import_from = Nothing , ies_parent = parent_occ} ) = text "Import the data constructor" <+> quotes (ppr dc_occ) <+> ===================================== docs/users_guide/exts/explicit_namespaces.rst ===================================== @@ -1,17 +1,25 @@ .. _explicit-namespaces: Explicit namespaces in import/export -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +------------------------------------ .. extension:: ExplicitNamespaces - :shortdesc: Allow use of the keyword ``type`` to specify the namespace of - entries in imports and exports. + :shortdesc: Allow use of the ``type`` and ``data`` keywords to specify the namespace of + entries in import/export lists and in other contexts. :implied by: :extension:`TypeOperators`, :extension:`TypeFamilies` :since: 7.6.1 :status: Included in :extension:`GHC2024` - Enable use of explicit namespaces in module export lists, patterns, and expressions. + Enable use of explicit namespace specifiers ``type`` and ``data`` + in import declarations, module export lists, fixity declarations, + and warning/deprecation pragmas; as well as the ``type`` namespace + specifier in expressions and patterns. + +The ``type`` keyword in import/export lists +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + +**Since:** GHC 7.6 In an import or export list, such as :: @@ -51,17 +59,69 @@ import and export lists: The extension :extension:`ExplicitNamespaces` is implied by :extension:`TypeOperators` and (for some reason) by :extension:`TypeFamilies`. -In addition, you can prefix the name of a data constructor in an import or -export list with the keyword ``data``, to allow the import or export of a data -constructor without its parent type constructor (see :ref:`patsyn-impexp`). +The ``data`` keyword in import/export lists +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -Furthermore, :extension:`ExplicitNamespaces` permits the use of the ``type`` -keyword in patterns and expressions:: +**Since:** GHC 9.14 - f (type t) x = ... -- in a pattern - r = f (type Integer) 10 -- in an expression +In an import or export list, such as :: -This is used in conjunction with :extension:`RequiredTypeArguments`. + module M( T ) where ... + import N( T ) + ... + +the entity ``T`` refers to a *type constructor*, even if there is also a data +constructor or pattern synonym of the same name. + +For a concrete example, consider the declaration ``data Proxy t = Proxy`` +and the following imports: :: + + import Data.Proxy (Proxy(Proxy)) -- imports both constructors + import Data.Proxy (Proxy(..)) -- imports both constructors + import Data.Proxy (Proxy) -- imports the type constructor only + import Data.Proxy (type Proxy) -- imports the type constructor only + +However, how would one import only the data constructor? There are two options: :: + + import Data.Proxy (data Proxy) -- imports the data constructor only + import Data.Proxy (pattern Proxy) -- imports the data constructor only + +The ``data`` keyword enables the import or export a data constructor without its +parent type constructor. + +The ``pattern`` keyword does the same, with only a few differences: + +* Required compiler versions and flags + + - ``pattern`` is provided by the :extension:`PatternSynonyms` extension and requires GHC ≥7.8 + - ``data`` is enabled by :extension:`ExplicitNamespaces` and requires GHC ≥9.14 + + See :ref:`patsyn-impexp`. + +* Restrictions on use + + - ``pattern`` is restricted to top-level imports of pattern synonyms and data + constructors: :: + + import N (pattern P) -- ok (top-level) + import N (T(pattern P)) -- error (subordinate) + import N (pattern f) -- error (term or field selector) + + - ``data`` is also permitted in subordinate import/export lists, and is + applicable to term declarations (functions and constants) and field + selectors: :: + + import N (data P) -- ok (top-level) + import N (T(data P)) -- ok (subordinate) + import N (data f) -- ok (term or field selector) + +The ``data`` keyword is preferred over ``pattern`` in import/export lists unless +there is a need to support older GHC versions. + +Explicit namespaces in fixity declarations and warning/deprecation pragmas +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + +**Since:** GHC 9.10 When :extension:`ExplicitNamespaces` is enabled, it is possible to use the ``type`` and ``data`` keywords to specify the namespace of the name used in @@ -79,9 +139,9 @@ type-level and term-level operators: :: Similarly, it can be used in pragmas to deprecate only one name in a namespace: :: - data Solo = MkSolo + data Solo a = MkSolo a - pattern Solo = MkSolo + pattern Solo x = MkSolo x {-# DEPRECATED data Solo "Use `MkSolo` instead" #-} type family Head xs where @@ -94,3 +154,16 @@ Similarly, it can be used in pragmas to deprecate only one name in a namespace: It is considered bad practice to use a fixity signature, ``WARNING`` pragma, or ``DEPRECATED`` pragma for a type-level name without an explicit ``type`` namespace, and doing so will become an error in a future version of GHC. + +The ``type`` keyword in expressions and patterns +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + +**Since:** GHC 9.10 + +Furthermore, :extension:`ExplicitNamespaces` permits the use of the ``type`` +keyword in patterns and expressions:: + + f (type t) x = ... -- in a pattern + r = f (type Integer) 10 -- in an expression + +This is used in conjunction with :extension:`RequiredTypeArguments`. ===================================== testsuite/tests/rename/should_compile/T22581d.stdout ===================================== @@ -2,4 +2,7 @@ In the import of ‘Data.Functor.Product’: a data type called ‘Product’ is exported, but its subordinate item ‘Pair’ is not in the type namespace. + Suggested fix: + Remove the ‘type’ keyword from the subordinate import item: + import Data.Functor.Product ( Product ( Pair ) ) ===================================== testsuite/tests/rename/should_compile/T25899d.stdout ===================================== @@ -2,6 +2,9 @@ In the import of ‘GHC.Generics’: a class called ‘Generic’ is exported, but its subordinate item ‘Rep’ is not in the data namespace. + Suggested fix: + Remove the ‘data’ keyword from the subordinate import item: + import GHC.Generics ( Generic ( Rep ) ) <interactive>:3:22: error: [GHC-56449] In the import of ‘GHC.Generics’: ===================================== testsuite/tests/rename/should_fail/T22581a.stderr ===================================== @@ -2,4 +2,7 @@ T22581a.hs:5:24: error: [GHC-51433] In the import of ‘T22581a_helper’: a data type called ‘T’ is exported, but its subordinate item ‘MkT’ is not in the type namespace. + Suggested fix: + Remove the ‘type’ keyword from the subordinate import item: + import T22581a_helper ( T ( MkT ) ) ===================================== testsuite/tests/rename/should_fail/T22581b.stderr ===================================== @@ -2,6 +2,9 @@ T22581b.hs:5:24: error: [GHC-51433] In the import of ‘T22581b_helper’: a data type called ‘T’ is exported, but its subordinate item ‘MkT1’ is not in the type namespace. + Suggested fix: + Remove the ‘type’ keyword from the subordinate import item: + import T22581b_helper ( T ( MkT1 ) ) T22581b.hs:5:24: error: [GHC-10237] In the import of ‘T22581b_helper’: ===================================== testsuite/tests/rename/should_fail/T25899f.hs ===================================== @@ -0,0 +1,8 @@ +{-# LANGUAGE ExplicitNamespaces #-} + +module T25899f where + +import T25899f_helper + ( T(type X, Y, type Z) + , type (#)(data F, G, data H) + ) ===================================== testsuite/tests/rename/should_fail/T25899f.stderr ===================================== @@ -0,0 +1,16 @@ +T25899f.hs:6:5: error: [GHC-51433] + In the import of ‘T25899f_helper’: + a data type called ‘T’ is exported, + but its subordinate items ‘X’, ‘Z’ are not in the type namespace. + Suggested fix: + Remove the ‘type’ keywords from the subordinate import items: + import T25899f_helper ( T ( X, Z ) ) + +T25899f.hs:7:5: error: [GHC-46557] + In the import of ‘T25899f_helper’: + a class called ‘(#)’ is exported, + but its subordinate items ‘F’, ‘H’ are not in the data namespace. + Suggested fix: + Remove the ‘data’ keywords from the subordinate import items: + import T25899f_helper ( type (#) ( F, H ) ) + ===================================== testsuite/tests/rename/should_fail/T25899f_helper.hs ===================================== @@ -0,0 +1,10 @@ +{-# LANGUAGE TypeFamilies #-} + +module T25899f_helper where + +data T = X | Y | Z + +class a # b where + type F a b + type G a b + type H a b ===================================== testsuite/tests/rename/should_fail/all.T ===================================== @@ -245,3 +245,4 @@ test('T25991b2', [extra_files(['T25991b_helper.hs'])], multimod_compile_fail, [' test('T25899e1', normal, compile_fail, ['']) test('T25899e2', normal, compile_fail, ['']) test('T25899e3', [extra_files(['T25899e_helper.hs'])], multimod_compile_fail, ['T25899e3', '-v0']) +test('T25899f', [extra_files(['T25899f_helper.hs'])], multimod_compile_fail, ['T25899f', '-v0']) View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/b5da2ac8e2e4cee89643696f91cb23… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/b5da2ac8e2e4cee89643696f91cb23… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][ghc-9.10] 2 commits: ghcup metadata: fix debian 12+ selection logic
by Ben Gamari (＠bgamari) 16 May '25

16 May '25

Ben Gamari pushed to branch ghc-9.10 at Glasgow Haskell Compiler / GHC Commits: b300f423 by Zubin Duggal at 2025-05-06T17:38:56+05:30 ghcup metadata: fix debian 12+ selection logic - - - - - e761967a by Matthew Pickering at 2025-05-06T17:39:24+05:30 ghcup-metadata: Fix use of arch argument The arch argument was ignored when making the jobname, which lead to failures when generating metadata for the alpine_3_18-aarch64 bindist. Fixes #25089 (cherry picked from commit 12d3b66cedd3c80e7c1e030238c92d26631cab8d) - - - - - 1 changed file: - .gitlab/rel_eng/mk-ghcup-metadata/mk_ghcup_metadata.py Changes: ===================================== .gitlab/rel_eng/mk-ghcup-metadata/mk_ghcup_metadata.py ===================================== @@ -97,16 +97,16 @@ windowsArtifact = PlatformSpec ( 'x86_64-windows' , 'ghc-{version}-x86_64-unknown-mingw32' ) def fedora(n, arch='x86_64'): - return linux_platform(arch, "x86_64-linux-fedora{n}".format(n=n)) + return linux_platform(arch, "{arch}-linux-fedora{n}".format(n=n,arch=arch)) def alpine(n, arch='x86_64'): - return linux_platform(arch, "x86_64-linux-alpine{n}".format(n=n)) + return linux_platform(arch, "{arch}-linux-alpine{n}".format(n=n,arch=arch)) def rocky(n, arch='x86_64'): - return linux_platform(arch, "x86_64-linux-rocky{n}".format(n=n)) + return linux_platform(arch, "{arch}-linux-rocky{n}".format(n=n,arch=arch)) def ubuntu(n, arch='x86_64'): - return linux_platform(arch, "x86_64-linux-ubuntu{n}".format(n=n)) + return linux_platform(arch, "{arch}-linux-ubuntu{n}".format(n=n,arch=arch)) def linux_platform(arch, opsys): return PlatformSpec( opsys, 'ghc-{version}-{arch}-unknown-linux'.format(version="{version}", arch=arch) ) @@ -216,7 +216,7 @@ def mk_new_yaml(release_mode, version, date, pipeline_type, job_map) -> object: a64 = { "Linux_Debian": { "< 10": deb9 , "( >= 10 && < 11 )": deb10 , "( >= 11 && < 12 )": deb11 - , ">= 11": deb12 + , ">= 12": deb12 , "unknown_versioning": deb11 } , "Linux_Ubuntu" : { "unknown_versioning": ubuntu2004 , "( >= 16 && < 18 )": deb9 View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/c9de16b57adcb6810d059ebd1c72d9… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/c9de16b57adcb6810d059ebd1c72d9… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc] Deleted branch wip/9.10-metadata-fixes
by Ben Gamari (＠bgamari) 16 May '25

16 May '25

Ben Gamari deleted branch wip/9.10-metadata-fixes at Glasgow Haskell Compiler / GHC -- You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/az/ghc-cpp] Do not process CPP-style comments
by Alan Zimmerman (＠alanz) 16 May '25

16 May '25

Alan Zimmerman pushed to branch wip/az/ghc-cpp at Glasgow Haskell Compiler / GHC Commits: 497d6c7e by Alan Zimmerman at 2025-05-15T22:45:53+01:00 Do not process CPP-style comments - - - - - 2 changed files: - compiler/GHC/Parser/Lexer.x - utils/check-cpp/Main.hs Changes: ===================================== compiler/GHC/Parser/Lexer.x ===================================== @@ -273,7 +273,7 @@ $tab { warnTab } -- set. "{-" / { isNormalComment } { nested_comment } -"/*" / { ifExtension GhcCppBit } { nested_comment } +-- "/*" / { ifExtension GhcCppBit } { nested_comment } -- Single-line comments are a bit tricky. Haskell 98 says that two or -- more dashes followed by a symbol should be parsed as a varsym, so we @@ -1587,6 +1587,16 @@ nested_doc_comment span buf _len _buf2 = {-# SCC "nested_doc_comment" #-} withLe dropTrailingDec "-}" = "" dropTrailingDec (x:xs) = x:dropTrailingDec xs +-- TODO:AZ delete this +nested_cpp_comment :: Action p +nested_cpp_comment span buf len _buf2 = {-# SCC "nested_comment" #-} do + l <- getLastLocIncludingComments + let endComment input (L _ comment) = commentEnd lexToken input (Nothing, ITblockComment comment l) buf span + input <- getInput + -- Include decorator in comment + let start_decorator = reverse $ lexemeToString buf len + nested_cpp_comment_logic endComment start_decorator input span + {-# INLINE nested_comment_logic #-} -- | Includes the trailing '-}' decorators -- drop the last two elements with the callback if you don't want them to be included @@ -1597,6 +1607,41 @@ nested_comment_logic -> PsSpan -> P p (PsLocated Token) nested_comment_logic endComment commentAcc input span = go commentAcc (1::Int) input + where + go commentAcc 0 input@(AI end_loc _) = do + let comment = reverse commentAcc + cspan = mkSrcSpanPs $ mkPsSpan (psSpanStart span) end_loc + lcomment = L cspan comment + endComment input lcomment + go commentAcc n input = ghcCppSet >>= \ghcCppSet -> case alexGetChar' input of + Nothing -> errBrace input (psRealSpan span) + Just ('-',input) -> case alexGetChar' input of + Nothing -> errBrace input (psRealSpan span) + Just ('\125',input) -> go ('\125':'-':commentAcc) (n-1) input -- '}' + Just (_,_) -> go ('-':commentAcc) n input + Just ('\123',input) -> case alexGetChar' input of -- '{' char + Nothing -> errBrace input (psRealSpan span) + Just ('-',input) -> go ('-':'\123':commentAcc) (n+1) input + Just (_,_) -> go ('\123':commentAcc) n input + -- See Note [Nested comment line pragmas] + Just ('\n',input) -> case alexGetChar' input of + Nothing -> errBrace input (psRealSpan span) + Just ('#',_) -> do (parsedAcc,input) <- parseNestedPragma input + go (parsedAcc ++ '\n':commentAcc) n input + Just (_,_) -> go ('\n':commentAcc) n input + Just (c,input) -> go (c:commentAcc) n input + +-- TODO:AZ delete this +{-# INLINE nested_cpp_comment_logic #-} +-- | Includes the trailing '*/' decorators +-- drop the last two elements with the callback if you don't want them to be included +nested_cpp_comment_logic + :: (AlexInput -> Located String -> P p (PsLocated Token)) -- ^ Continuation that gets the rest of the input and the lexed comment + -> String -- ^ starting value for accumulator (reversed) - When we want to include a decorator '/*' in the comment + -> AlexInput + -> PsSpan + -> P p (PsLocated Token) +nested_cpp_comment_logic endComment commentAcc input span = go commentAcc (1::Int) input where go commentAcc 0 input@(AI end_loc _) = do let comment = reverse commentAcc @@ -1629,6 +1674,7 @@ nested_comment_logic endComment commentAcc input span = go commentAcc (1::Int) i Just (_,_) -> go ('\n':commentAcc) n input (_, Just (c,input)) -> go (c:commentAcc) n input + ghcCppSet :: P p Bool ghcCppSet = do exts <- getExts ===================================== utils/check-cpp/Main.hs ===================================== @@ -868,13 +868,13 @@ t38 = do , "buildg = 1" ] --- t39 :: IO () --- t39 = do --- dump --- [ "{-# LANGUAGE GHC_CPP #-}" --- , "{- WARNING! Do not edit!!!" --- , " This code is autogenerated from src/data/*.txt! -}" --- , "module Example16 where" --- , "x='a'" --- , "" --- ] +t39 :: IO () +t39 = do + dump + [ "{-# LANGUAGE GHC_CPP #-}" + , "{- WARNING! Do not edit!!!" + , " This code is autogenerated from src/data/*.txt! -}" + , "module Example16 where" + , "x='a'" + , "" + ] View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/497d6c7e1af9df6b9712a2e50af0481… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/497d6c7e1af9df6b9712a2e50af0481… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/az/ghc-cpp] 123 commits: Add LoongArch NCG support
by Alan Zimmerman (＠alanz) 16 May '25

16 May '25

Alan Zimmerman pushed to branch wip/az/ghc-cpp at Glasgow Haskell Compiler / GHC Commits: 652cba7e by Peng Fan at 2025-05-14T04:24:35-04:00 Add LoongArch NCG support Not supported before. - - - - - c01f4374 by Lin Runze at 2025-05-14T04:24:35-04:00 ci: Add LoongArch64 cross-compile CI for testing - - - - - ce6cf240 by Ben Gamari at 2025-05-14T04:25:18-04:00 rts/linker: Don't fail due to RTLD_NOW In !12264 we started using the NativeObj machinery introduced some time ago for loading of shared objects. One of the side-effects of this change is shared objects are now loaded eagerly (i.e. with `RTLD_NOW`). This is needed by NativeObj to ensure full visibility of the mappings of the loaded object, which is in turn needed for safe shared object unloading. Unfortunately, this change subtly regressed, causing compilation failures in some programs. Specifically, shared objects which refer to undefined symbols (e.g. which may be usually provided by either the executable image or libraries loaded via `dlopen`) will fail to load with eager binding. This is problematic as GHC loads all package dependencies while, e.g., evaluating TemplateHaskell splices. This results in compilation failures in programs depending upon (but not using at compile-time) packages with undefined symbol references. To mitigate this NativeObj now first attempts to load an object via eager binding, reverting to lazy binding (and disabling unloading) on failure. See Note [Don't fail due to RTLD_NOW]. Fixes #25943. - - - - - 88ee8bb5 by Sylvain Henry at 2025-05-14T04:26:15-04:00 Deprecate GHC.JS.Prim.Internal.Build (#23432) Deprecated as per CLC proposal 329 (https://github.com/haskell/core-libraries-committee/issues/329) - - - - - b4ed465b by Cheng Shao at 2025-05-14T04:26:57-04:00 libffi: update to 3.4.8 Bumps libffi submodule. - - - - - a3e71296 by Matthew Pickering at 2025-05-14T04:27:38-04:00 Remove leftover trace - - - - - 2d0ecdc6 by Cheng Shao at 2025-05-14T04:28:19-04:00 Revert "ci: re-enable chrome for wasm ghci browser tests" This reverts commit fee9b351fa5a35d5778d1252789eacaaf5663ae8. Unfortunately the chrome test jobs may still timeout on certain runners (e.g. OpenCape) for unknown reasons. - - - - - 2f63ebb0 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 GHC-CPP: first rough proof of concept Processes #define FOO #ifdef FOO x = 1 #endif Into [ITcppIgnored [L loc ITcppDefine] ,ITcppIgnored [L loc ITcppIfdef] ,ITvarid "x" ,ITequal ,ITinteger (IL {il_text = SourceText "1", il_neg = False, il_value = 1}) ,ITcppIgnored [L loc ITcppEndif] ,ITeof] In time, ITcppIgnored will be pushed into a comment - - - - - 96b5a640 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Tidy up before re-visiting the continuation mechanic - - - - - 3252d373 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Switch preprocessor to continuation passing style Proof of concept, needs tidying up - - - - - 68621389 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Small cleanup - - - - - 6ab7e8b1 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Get rid of some cruft - - - - - b2718948 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Starting to integrate. Need to get the pragma recognised and set - - - - - 12ea9390 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Make cppTokens extend to end of line, and process CPP comments - - - - - c911a9ec by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Remove unused ITcppDefined - - - - - f396e819 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Allow spaces between # and keyword for preprocessor directive - - - - - 261da91b by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Process CPP continuation lines They are emited as separate ITcppContinue tokens. Perhaps the processing should be more like a comment, and keep on going to the end. BUT, the last line needs to be slurped as a whole. - - - - - 036858d6 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Accumulate CPP continuations, process when ready Can be simplified further, we only need one CPP token - - - - - 0bdb4532 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Simplify Lexer interface. Only ITcpp We transfer directive lines through it, then parse them from scratch in the preprocessor. - - - - - e39f243b by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Deal with directive on last line, with no trailing \n - - - - - b42886a2 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Start parsing and processing the directives - - - - - 352bc688 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Prepare for processing include files - - - - - d0b47755 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Move PpState into PreProcess And initParserState, initPragState too - - - - - 94bed0ea by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Process nested include files Also move PpState out of Lexer.x, so it is easy to evolve it in a ghci session, loading utils/check-cpp/Main.hs - - - - - 83b00a80 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Split into separate files - - - - - b405a2d9 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Starting on expression parser. But it hangs. Time for Text.Parsec.Expr - - - - - 2418a2a0 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Start integrating the ghc-cpp work From https://github.com/alanz/ghc-cpp - - - - - 22a64399 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 WIP - - - - - 746b22df by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Fixup after rebase - - - - - c5566266 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 WIP - - - - - bd1a0f1b by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Fixup after rebase, including all tests pass - - - - - 66987b54 by Alan Zimmerman at 2025-05-14T18:19:19+01:00 Change pragma usage to GHC_CPP from GhcCPP - - - - - d9a2b76d by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Some comments - - - - - 6f3f52c1 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Reformat - - - - - 764cda90 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Delete unused file - - - - - ea5f32d7 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Rename module Parse to ParsePP - - - - - 1f2ae7ca by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Clarify naming in the parser - - - - - 9633ea57 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 WIP. Switching to alex/happy to be able to work in-tree Since Parsec is not available - - - - - 445630a3 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Layering is now correct - GHC lexer, emits CPP tokens - accumulated in Preprocessor state - Lexed by CPP lexer, CPP command extracted, tokens concated with spaces (to get rid of token pasting via comments) - if directive lexed and parsed by CPP lexer/parser, and evaluated - - - - - 6325ba58 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 First example working Loading Example1.hs into ghci, getting the right results ``` {-# LANGUAGE GHC_CPP #-} module Example1 where y = 3 x = "hello" "bye now" foo = putStrLn x ``` - - - - - b523d99e by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Rebase, and all tests pass except whitespace for generated parser - - - - - fd66b3a8 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 More plumbing. Ready for testing tomorrow. - - - - - 474ad311 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Proress. Renamed module State from Types And at first blush it seems to handle preprocessor scopes properly. - - - - - 022c30e5 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Insert basic GHC version macros into parser __GLASGOW_HASKELL__ __GLASGOW_HASKELL_FULL_VERSION__ __GLASGOW_HASKELL_PATCHLEVEL1__ __GLASGOW_HASKELL_PATCHLEVEL2__ - - - - - a27f36b0 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Re-sync check-cpp for easy ghci work - - - - - 64e50680 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Get rid of warnings - - - - - 109fc742 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Rework macro processing, in check-cpp Macros kept at the top level, looked up via name, multiple arity versions per name can be stored - - - - - cf5bf32a by Alan Zimmerman at 2025-05-14T18:19:20+01:00 WIP. Can crack arguments for #define Next step it to crack out args in an expansion - - - - - 2e0f5a7c by Alan Zimmerman at 2025-05-14T18:19:20+01:00 WIP on arg parsing. - - - - - 1e203004 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Progress. Still screwing up nested parens. - - - - - 0ef50414 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Seems to work, but has redundant code - - - - - d2bd34af by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Remove redundant code - - - - - 27fc83c3 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Reformat - - - - - 3892339b by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Expand args, single pass Still need to repeat until fixpoint - - - - - de56efc9 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Fixed point expansion - - - - - 1e1dde58 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Sync the playground to compiler - - - - - 9b0c8026 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Working on dumping the GHC_CPP result But We need to keep the BufSpan in a comment - - - - - 69c6ac89 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Keep BufSpan in queued comments in GHC.Parser.Lexer - - - - - 43b13276 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Getting close to being able to print the combined tokens showing what is in and what is out - - - - - 09a01436 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 First implementation of dumpGhcCpp. Example output First dumps all macros in the state, then the source, showing which lines are in and which are out ------------------------------ - |#define FOO(A,B) A + B - |#define FOO(A,B,C) A + B + C - |#if FOO(1,FOO(3,4)) == 8 - |-- a comment |x = 1 - |#else - |x = 5 - |#endif - - - - - 1bbf1d7a by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Clean up a bit - - - - - bc261c64 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Add -ddump-ghc-cpp option and a test based on it - - - - - 55a5adae by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Restore Lexer.x rules, we need them for continuation lines - - - - - 19d05f60 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Lexer.x: trying to sort out the span for continuations - We need to match on \n at the end of the line - We cannot simply back up for it - - - - - 1cbf8b49 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Inserts predefined macros. But does not dump properly Because the cpp tokens have a trailing newline - - - - - 4421462d by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Remove unnecessary LExer rules We *need* the ones that explicitly match to the end of the line. - - - - - f204d7ea by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Generate correct span for ITcpp Dump now works, except we do not render trailing `\` for continuation lines. This is good enough for use in test output. - - - - - a240d600 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Reduce duplication in lexer - - - - - e7ec23a8 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Tweaks - - - - - a5032dfb by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Insert min_version predefined macros into state The mechanism now works. Still need to flesh out the full set. - - - - - cf2e55c1 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Trying my alternative pragma syntax. It works, but dumpGhcCpp is broken, I suspect from the ITcpp token span update. - - - - - e04ac38e by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Pragma extraction now works, with both CPP and GHC_CPP For the following {-# LANGUAGE CPP #-} #if __GLASGOW_HASKELL__ >= 913 {-# LANGUAGE GHC_CPP #-} #endif We will enable GHC_CPP only - - - - - 7c192ee2 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Remove some tracing - - - - - 39606949 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Fix test exes for changes - - - - - c8ac21b5 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 For GHC_CPP tests, normalise config-time-based macros - - - - - 4752335f by Alan Zimmerman at 2025-05-14T18:19:20+01:00 WIP - - - - - fccb48e5 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 WIP again. What is wrong? - - - - - 2f207455 by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Revert to dynflags for normal not pragma lexing - - - - - 07f0908a by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Working on getting check-exact to work properly - - - - - 5f18753a by Alan Zimmerman at 2025-05-14T18:19:20+01:00 Passes CppCommentPlacement test - - - - - 05d23c50 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Starting on exact printing with GHC_CPP While overriding normal CPP - - - - - 413e8011 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Correctly store CPP ignored tokens as comments By populating the lexeme string in it, based on the bufpos - - - - - 63ebbea0 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 WIP - - - - - 03b84f2d by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Simplifying - - - - - 96e512ba by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Update the active state logic - - - - - d4b97464 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Work the new logic into the mainline code - - - - - 8d49b2c1 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Process `defined` operator - - - - - fba9491d by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Manage lexer state while skipping tokens There is very intricate layout-related state used when lexing. If a CPP directive blanks out some tokens, store this state when the blanking starts, and restore it when they are no longer being blanked. - - - - - 31eeb8ad by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Track the last token buffer index, for ITCppIgnored We need to attach the source being skipped in an ITCppIgnored token. We cannot simply use its BufSpan as an index into the underlying StringBuffer as it counts unicode chars, not bytes. So we update the lexer state to store the starting StringBuffer location for the last token, and use the already-stored length to extract the correct portion of the StringBuffer being parsed. - - - - - 998520b7 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Process the ! operator in GHC_CPP expressions - - - - - 36381727 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Predefine a constant when GHC_CPP is being used. - - - - - 16e87acb by Alan Zimmerman at 2025-05-14T18:19:21+01:00 WIP - - - - - 3f43657f by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Skip lines directly in the lexer when required - - - - - bb3a00eb by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Properly manage location when accepting tokens again - - - - - e839d8e7 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Seems to be working now, for Example9 - - - - - ea5ee1c4 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Remove tracing - - - - - 561ac7f1 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Fix parsing '*' in block comments Instead of replacing them with '-' - - - - - ee86e580 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Keep the trailing backslash in a ITcpp token - - - - - 58ad089d by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Deal with only enabling one section of a group. A group is an instance of a conditional introduced by #if/#ifdef/#ifndef, and ending at the final #endif, including intermediate #elsif sections - - - - - 4d401a98 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Replace remaining identifiers with 0 when evaluating As per the spec - - - - - 99c373a5 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Snapshot before rebase - - - - - 3bcdd146 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Skip non-processed lines starting with # - - - - - 60046877 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Export generateMacros so we can use it in ghc-exactprint - - - - - 26984a2a by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Fix rebase - - - - - 3aca4e6e by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Expose initParserStateWithMacrosString - - - - - 3bf073b0 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Fix buggy lexer cppSkip It was skipping all lines, not just ones prefixed by # - - - - - 9350d1e8 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Fix evaluation of && to use the correct operator - - - - - 2fc71268 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Deal with closing #-} at the start of a line - - - - - 11ac7351 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Add the MIN_VERSION_GLASGOW_HASKELL predefined macro - - - - - 3957dc93 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Include MIN_VERSION_GLASGOW_HASKELL in GhcCpp01.stderr - - - - - 40364d92 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Use a strict map for macro defines - - - - - b590d71d by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Process TIdentifierLParen Which only matters at the start of #define - - - - - 1bfc2787 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Do not provide TIdentifierLParen paren twice - - - - - e968ea61 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Handle whitespace between identifier and '(' for directive only - - - - - 1312a310 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Expose some Lexer bitmap manipulation helpers - - - - - f2869803 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Deal with line pragmas as tokens Blows up for dumpGhcCpp though - - - - - 6c3355e3 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Allow strings delimited by a single quote too - - - - - 8c83f87b by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Allow leading whitespace on cpp directives As per https://timsong-cpp.github.io/cppwp/n4140/cpp#1 - - - - - 4ce93134 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Implement GHC_CPP undef - - - - - 92b16e5f by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Sort out expansion of no-arg macros, in a context with args And make the expansion bottom out, in the case of recursion - - - - - f94500fc by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Fix GhcCpp01 test The LINE pragma stuff works in ghc-exactprint when specifically setting flag to emit ITline_pragma tokens - - - - - c1a50d52 by Alan Zimmerman at 2025-05-14T18:19:21+01:00 Process comments in CPP directives - - - - - 06b64dd4 by Alan Zimmerman at 2025-05-15T22:13:54+01:00 Correctly lex pragmas with finel #-} on a newline - - - - - 112 changed files: - .gitlab/generate-ci/gen_ci.hs - .gitlab/jobs.yaml - compiler/CodeGen.Platform.h - compiler/GHC.hs - compiler/GHC/Cmm/CLabel.hs - compiler/GHC/Cmm/Lexer.x - compiler/GHC/Cmm/Parser.y - compiler/GHC/Cmm/Parser/Monad.hs - compiler/GHC/CmmToAsm.hs - compiler/GHC/CmmToAsm/Dwarf/Constants.hs - + compiler/GHC/CmmToAsm/LA64.hs - + compiler/GHC/CmmToAsm/LA64/CodeGen.hs - + compiler/GHC/CmmToAsm/LA64/Cond.hs - + compiler/GHC/CmmToAsm/LA64/Instr.hs - + compiler/GHC/CmmToAsm/LA64/Ppr.hs - + compiler/GHC/CmmToAsm/LA64/RegInfo.hs - + compiler/GHC/CmmToAsm/LA64/Regs.hs - compiler/GHC/CmmToAsm/PIC.hs - compiler/GHC/CmmToAsm/Reg/Graph/TrivColorable.hs - compiler/GHC/CmmToAsm/Reg/Linear.hs - compiler/GHC/CmmToAsm/Reg/Linear/FreeRegs.hs - + compiler/GHC/CmmToAsm/Reg/Linear/LA64.hs - compiler/GHC/CmmToAsm/Reg/Target.hs - compiler/GHC/Driver/Backend.hs - compiler/GHC/Driver/Backpack.hs - compiler/GHC/Driver/Config/Parser.hs - compiler/GHC/Driver/Downsweep.hs - compiler/GHC/Driver/DynFlags.hs - compiler/GHC/Driver/Flags.hs - compiler/GHC/Driver/Main.hs - compiler/GHC/Driver/Pipeline.hs - compiler/GHC/Driver/Pipeline/Execute.hs - compiler/GHC/Driver/Session.hs - compiler/GHC/Parser.hs-boot - compiler/GHC/Parser.y - compiler/GHC/Parser/Annotation.hs - compiler/GHC/Parser/HaddockLex.x - compiler/GHC/Parser/Header.hs - compiler/GHC/Parser/Lexer.x - compiler/GHC/Parser/PostProcess.hs - compiler/GHC/Parser/PostProcess/Haddock.hs - + compiler/GHC/Parser/PreProcess.hs - + compiler/GHC/Parser/PreProcess/Eval.hs - + compiler/GHC/Parser/PreProcess/Lexer.x - + compiler/GHC/Parser/PreProcess/Macro.hs - + compiler/GHC/Parser/PreProcess/ParsePP.hs - + compiler/GHC/Parser/PreProcess/Parser.y - + compiler/GHC/Parser/PreProcess/ParserM.hs - + compiler/GHC/Parser/PreProcess/State.hs - compiler/GHC/Parser/Utils.hs - compiler/GHC/Platform/LoongArch64.hs → compiler/GHC/Platform/LA64.hs - compiler/GHC/Platform/Regs.hs - compiler/GHC/SysTools/Cpp.hs - compiler/GHC/Unit/Module/Graph.hs - compiler/ghc.cabal.in - docs/users_guide/debugging.rst - ghc/GHCi/UI.hs - hadrian/bindist/config.mk.in - hadrian/src/Oracles/Setting.hs - hadrian/src/Rules/SourceDist.hs - hadrian/src/Settings/Builders/RunTest.hs - hadrian/stack.yaml.lock - libffi-tarballs - libraries/base/changelog.md - libraries/base/src/GHC/JS/Prim/Internal/Build.hs - libraries/ghc-internal/src/GHC/Internal/LanguageExtensions.hs - rts/linker/LoadNativeObjPosix.c - testsuite/tests/count-deps/CountDepsParser.stdout - testsuite/tests/driver/T4437.hs - testsuite/tests/ghc-api/T11579.hs - + testsuite/tests/ghc-cpp/GhcCpp01.hs - + testsuite/tests/ghc-cpp/GhcCpp01.stderr - + testsuite/tests/ghc-cpp/all.T - testsuite/tests/interface-stability/template-haskell-exports.stdout - + testsuite/tests/printer/CppCommentPlacement.hs - testsuite/tests/rts/all.T - + utils/check-cpp/.ghci - + utils/check-cpp/.gitignore - + utils/check-cpp/Eval.hs - + utils/check-cpp/Example1.hs - + utils/check-cpp/Example10.hs - + utils/check-cpp/Example11.hs - + utils/check-cpp/Example12.hs - + utils/check-cpp/Example13.hs - + utils/check-cpp/Example2.hs - + utils/check-cpp/Example3.hs - + utils/check-cpp/Example4.hs - + utils/check-cpp/Example5.hs - + utils/check-cpp/Example6.hs - + utils/check-cpp/Example7.hs - + utils/check-cpp/Example8.hs - + utils/check-cpp/Example9.hs - + utils/check-cpp/Lexer.x - + utils/check-cpp/Macro.hs - + utils/check-cpp/Main.hs - + utils/check-cpp/ParsePP.hs - + utils/check-cpp/ParseSimulate.hs - + utils/check-cpp/Parser.y - + utils/check-cpp/ParserM.hs - + utils/check-cpp/PreProcess.hs - + utils/check-cpp/README.md - + utils/check-cpp/State.hs - + utils/check-cpp/run.sh - utils/check-exact/Main.hs - utils/check-exact/Parsers.hs - utils/check-exact/Preprocess.hs - utils/check-exact/Utils.hs - utils/ghc-toolchain/exe/Main.hs - utils/ghc-toolchain/src/GHC/Toolchain/Tools/Cc.hs - utils/haddock/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs - utils/haddock/haddock-api/src/Haddock/Parser.hs - utils/haddock/haddock-api/src/Haddock/Types.hs The diff was not included because it is too large. View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/315240e0f3ccd6f2d882b9b598b104… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/315240e0f3ccd6f2d882b9b598b104… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/T25989] 27 commits: Fix lexing "\^\" (#25937)
by Ben Gamari (＠bgamari) 16 May '25

16 May '25

Ben Gamari pushed to branch wip/T25989 at Glasgow Haskell Compiler / GHC Commits: 6467d61e by Brandon Chinn at 2025-04-29T18:36:03-04:00 Fix lexing "\^\" (#25937) This broke in the refactor in !13128, where the old code parsed escape codes and collapsed string gaps at the same time, but the new code collapsed gaps first, then resolved escape codes. The new code used a naive heuristic to skip escaped backslashes, but didn't account for "\^\". - - - - - 99868a86 by Jens Petersen at 2025-04-29T18:36:44-04:00 hadrian: default selftest to disabled - - - - - aba2a4a5 by Zubin Duggal at 2025-04-30T06:35:59-04:00 get-win32-tarballs.py: List tarball files to be downloaded if we cannot find them Fixes #25929 - - - - - d99a617b by Ben Gamari at 2025-04-30T06:36:40-04:00 Move Data ModuleName instance to Language.Haskell.Syntax.Module.Name Fixes #25968. - - - - - 9995c2b7 by Serge S. Gulin at 2025-05-04T17:13:36+03:00 Support for ARM64 Windows (LLVM-enabled) (fixes #24603) 1. Add Windows AArch64 cross-compilation support via CI jobs Introduce new CI configurations for cross-compiling to Windows ARM64 using Debian12Wine, FEX, and MSYS2. Configure toolchain variables for LLVM MinGW and Wine emulation in CI pipelines. 2. Adjust compiler and RTS for AArch64 Windows compatibility Reserve register `x18` on Windows and Darwin platforms in AArch64 codegen. Handle Windows-specific relocations and data sections in AArch64 assembler. Update PEi386 linker to recognize ARM64 binaries and support exception handling. Adjust LLVM target definitions and data layouts for new architectures. Update `ghc-toolchain` and build scripts to handle `TablesNextToCode` on Windows ARM64. 3. Enhance CI scripts and stability Modify `ci.sh` to handle mingw cross-targets, fixing GHC executable paths and test execution. Use `diff -w` in tests to ignore whitespace differences, improving cross-platform consistency. 4. Refactor and clean up code Remove redundant imports in hello.hs test. Improve error messages and checks for unsupported configurations in the driver. Add `EXDEV` error code to `errno.js`. Add async/sync flags to IO logs at `base.js`. Improve POSIX compatibility for file close at `base.js`: decrease indeterminism for mixed cases of async and sync code. 5. Update dependencies: `Cabal`, `Win32`, `directory`, `process`, `haskeline`, and `unix`. submodule Co-authored-by: Cheng Shao <terrorjack(a)type.dance> Co-authored-by: Dmitrii Egorov <egorov.d.i(a)icloud.com> Co-authored-by: Andrei Borzenkov <root(a)sandwitch.dev> - - - - - 50fa8165 by Javran Cheng at 2025-05-05T05:55:39-04:00 Suppress unused do-binding if discarded variable is Any or ZonkAny. Consider example (#25895): > do { forever (return ()); blah } where `forever :: forall a b. IO a -> IO b`. Nothing constrains `b`, so it will be instantiates with `Any` or `ZonkAny`. But we certainly don't want to complain about a discarded do-binding. Fixes #25895 - - - - - e46c6b18 by Rodrigo Mesquita at 2025-05-06T09:01:57-04:00 Refactor mkTopLevImportedEnv out of mkTopLevEnv This makes the code clearer and allows the top-level import context to be fetched directly from the HomeModInfo through the API (e.g. useful for the debugger). - - - - - 0ce0d263 by Rodrigo Mesquita at 2025-05-06T09:01:57-04:00 Export sizeOccEnv from GHC.Types.Name.Occurrence Counts the number of OccNames in an OccEnv - - - - - 165f98d8 by Simon Peyton Jones at 2025-05-06T09:02:39-04:00 Fix a bad untouchability bug im simplifyInfer This patch addresses #26004. The root cause was that simplifyInfer was willing to unify variables "far out". The fix, in runTcSWithEvBinds', is to initialise the inert set given-eq level with the current level. See (TGE6) in Note [Tracking Given equalities] in GHC.Tc.Solver.InertSet Two loosely related refactors: * Refactored approximateWCX to return just the free type variables of the un-quantified constraints. That avoids duplication of work (these free vars are needed in simplifyInfer) and makes it clearer that the constraints themselves are irrelevant. * A little local refactor of TcSMode, which reduces the number of parameters to runTcSWithEvBinds - - - - - 6e67fa08 by Ben Gamari at 2025-05-08T06:21:21-04:00 llvmGen: Fix built-in variable predicate Previously the predicate to identify LLVM builtin global variables was checking for `$llvm` rather than `@llvm` as it should. - - - - - a9d0a22c by Ben Gamari at 2025-05-08T06:21:22-04:00 llvmGen: Fix linkage of built-in arrays LLVM now insists that built-in arrays use Appending linkage, not Internal. Fixes #25769. - - - - - 9c6d2b1b by sheaf at 2025-05-08T06:22:11-04:00 Use mkTrAppChecked in ds_ev_typeable This change avoids violating the invariant of mkTrApp according to which the argument should not be a fully saturated function type. This ensures we don't return false negatives for type equality involving function types. Fixes #25998 - - - - - 75cadf81 by Ryan Hendrickson at 2025-05-08T06:22:55-04:00 haddock: Preserve indentation in multiline examples Intended for use with :{ :}, but doesn't look for those characters. Any consecutive lines with birdtracks will only have initial whitespace stripped up to the column of the first line. - - - - - fee9b351 by Cheng Shao at 2025-05-08T06:23:36-04:00 ci: re-enable chrome for wasm ghci browser tests Currently only firefox is enabled for wasm ghci browser tests, for some reason testing with chrome works on my machine but gets stuck on gitlab instance runners. This patch re-enables testing with chrome by passing `--no-sandbox`, since chrome sandboxing doesn't work in containers without `--cap-add=SYS_ADMIN`. - - - - - 282df905 by Vladislav Zavialov at 2025-05-09T03:18:25-04:00 Take subordinate 'type' specifiers into account This patch fixes multiple bugs (#22581, #25983, #25984, #25991) in name resolution of subordinate import lists. Bug #22581 ---------- In subordinate import lists, the use of the `type` namespace specifier used to be ignored. For example, this import statement was incorrectly accepted: import Prelude (Bool(type True)) Now it results in an error message: <interactive>:2:17: error: [GHC-51433] In the import of ‘Prelude’: a data type called ‘Bool’ is exported, but its subordinate item ‘True’ is not in the type namespace. Bug #25983 ---------- In subordinate import lists within a `hiding` clause, non-existent items led to a poor warning message with -Wdodgy-imports. Consider: import Prelude hiding (Bool(X)) The warning message for this import statement used to misreport the cause of the problem: <interactive>:3:24: warning: [GHC-56449] [-Wdodgy-imports] In the import of ‘Prelude’: an item called ‘Bool’ is exported, but it is a type. Now the warning message is correct: <interactive>:2:24: warning: [GHC-10237] [-Wdodgy-imports] In the import of ‘Prelude’: a data type called ‘Bool’ is exported, but it does not export any constructors or record fields called ‘X’. Bug #25984 ---------- In subordinate import lists within a `hiding` clause, non-existent items resulted in the entire import declaration being discarded. For example, this program was incorrectly accepted: import Prelude hiding (Bool(True,X)) t = True Now it results in an error message: <interactive>:2:5: error: [GHC-88464] Data constructor not in scope: True Bug #25991 ---------- In subordinate import lists, it was not possible to refer to a class method if there was an associated type of the same name: module M_helper where class C a b where type a # b (#) :: a -> b -> () module M where import M_helper (C((#))) This import declaration failed with: M.hs:2:28: error: [GHC-10237] In the import of ‘M_helper’: an item called ‘C’ is exported, but it does not export any children (constructors, class methods or field names) called ‘#’. Now it is accepted. Summary ------- The changes required to fix these bugs are almost entirely confined to GHC.Rename.Names. Other than that, there is a new error constructor BadImportNonTypeSubordinates with error code [GHC-51433]. Test cases: T22581a T22581b T22581c T22581d T25983a T25983b T25983c T25983d T25983e T25983f T25983g T25984a T25984b T25991a T25991b1 T25991b2 - - - - - 51b0ce8f by Simon Peyton Jones at 2025-05-09T03:19:07-04:00 Slighty improve `dropMisleading` Fix #26105, by upgrading the (horrible, hacky) `dropMisleading` function. This fix makes things a bit better but does not cure the underlying problem. - - - - - 7b2d1e6d by Simon Peyton Jones at 2025-05-11T03:24:47-04:00 Refine `noGivenNewtypeReprEqs` to account for quantified constraints This little MR fixes #26020. We are on the edge of completeness for newtype equalities (that doesn't change) but this MR makes GHC a bit more consistent -- and fixes the bug reported. - - - - - eaa8093b by Cheng Shao at 2025-05-11T03:25:28-04:00 wasm: mark freeJSVal as INLINE This patch marks `freeJSVal` as `INLINE` for the wasm backend. I noticed that the `freeJSVal` invocations are not inlined when inspecting STG/Cmm dumps of downstream libraries that use release build of the wasm backend. The performance benefit of inlining here is very modest, but so is the cost anyway; if you are using `freeJSVal` at all then you care about every potential chance to improve performance :) - - - - - eac196df by Cheng Shao at 2025-05-11T03:25:28-04:00 wasm: add zero length fast path for fromJSString This patch adds a zero length fast path for `fromJSString`; when marshaling a zero-length `JSString` we don't need to allocate an empty `ByteArray#` at all. - - - - - 652cba7e by Peng Fan at 2025-05-14T04:24:35-04:00 Add LoongArch NCG support Not supported before. - - - - - c01f4374 by Lin Runze at 2025-05-14T04:24:35-04:00 ci: Add LoongArch64 cross-compile CI for testing - - - - - ce6cf240 by Ben Gamari at 2025-05-14T04:25:18-04:00 rts/linker: Don't fail due to RTLD_NOW In !12264 we started using the NativeObj machinery introduced some time ago for loading of shared objects. One of the side-effects of this change is shared objects are now loaded eagerly (i.e. with `RTLD_NOW`). This is needed by NativeObj to ensure full visibility of the mappings of the loaded object, which is in turn needed for safe shared object unloading. Unfortunately, this change subtly regressed, causing compilation failures in some programs. Specifically, shared objects which refer to undefined symbols (e.g. which may be usually provided by either the executable image or libraries loaded via `dlopen`) will fail to load with eager binding. This is problematic as GHC loads all package dependencies while, e.g., evaluating TemplateHaskell splices. This results in compilation failures in programs depending upon (but not using at compile-time) packages with undefined symbol references. To mitigate this NativeObj now first attempts to load an object via eager binding, reverting to lazy binding (and disabling unloading) on failure. See Note [Don't fail due to RTLD_NOW]. Fixes #25943. - - - - - 88ee8bb5 by Sylvain Henry at 2025-05-14T04:26:15-04:00 Deprecate GHC.JS.Prim.Internal.Build (#23432) Deprecated as per CLC proposal 329 (https://github.com/haskell/core-libraries-committee/issues/329) - - - - - b4ed465b by Cheng Shao at 2025-05-14T04:26:57-04:00 libffi: update to 3.4.8 Bumps libffi submodule. - - - - - a3e71296 by Matthew Pickering at 2025-05-14T04:27:38-04:00 Remove leftover trace - - - - - 2d0ecdc6 by Cheng Shao at 2025-05-14T04:28:19-04:00 Revert "ci: re-enable chrome for wasm ghci browser tests" This reverts commit fee9b351fa5a35d5778d1252789eacaaf5663ae8. Unfortunately the chrome test jobs may still timeout on certain runners (e.g. OpenCape) for unknown reasons. - - - - - 3b3a5dec by Ben Gamari at 2025-05-15T16:10:01-04:00 Don't emit unprintable characters when printing Uniques When faced with an unprintable tag we now instead print the codepoint number. Fixes #25989. (cherry picked from commit e832b1fadee66e8d6dd7b019368974756f8f8c46) - - - - - 161 changed files: - .gitlab-ci.yml - .gitlab/ci.sh - .gitlab/generate-ci/gen_ci.hs - .gitlab/hello.hs - .gitlab/jobs.yaml - compiler/CodeGen.Platform.h - compiler/GHC/Builtin/Names.hs - compiler/GHC/Builtin/Types.hs - compiler/GHC/Cmm/CLabel.hs - compiler/GHC/CmmToAsm.hs - compiler/GHC/CmmToAsm/AArch64/CodeGen.hs - compiler/GHC/CmmToAsm/AArch64/Instr.hs - compiler/GHC/CmmToAsm/AArch64/Ppr.hs - compiler/GHC/CmmToAsm/Dwarf/Constants.hs - + compiler/GHC/CmmToAsm/LA64.hs - + compiler/GHC/CmmToAsm/LA64/CodeGen.hs - + compiler/GHC/CmmToAsm/LA64/Cond.hs - + compiler/GHC/CmmToAsm/LA64/Instr.hs - + compiler/GHC/CmmToAsm/LA64/Ppr.hs - + compiler/GHC/CmmToAsm/LA64/RegInfo.hs - + compiler/GHC/CmmToAsm/LA64/Regs.hs - compiler/GHC/CmmToAsm/PIC.hs - compiler/GHC/CmmToAsm/Reg/Graph/TrivColorable.hs - compiler/GHC/CmmToAsm/Reg/Linear.hs - compiler/GHC/CmmToAsm/Reg/Linear/AArch64.hs - compiler/GHC/CmmToAsm/Reg/Linear/FreeRegs.hs - + compiler/GHC/CmmToAsm/Reg/Linear/LA64.hs - compiler/GHC/CmmToAsm/Reg/Target.hs - compiler/GHC/CmmToLlvm/Base.hs - compiler/GHC/CmmToLlvm/Data.hs - compiler/GHC/Driver/Backend.hs - compiler/GHC/Driver/DynFlags.hs - compiler/GHC/Driver/Session.hs - compiler/GHC/HsToCore/Binds.hs - compiler/GHC/HsToCore/Expr.hs - compiler/GHC/HsToCore/Pmc/Solver/Types.hs - compiler/GHC/Parser/Errors/Types.hs - compiler/GHC/Parser/String.hs - compiler/GHC/Platform/LoongArch64.hs → compiler/GHC/Platform/LA64.hs - compiler/GHC/Platform/Regs.hs - compiler/GHC/Rename/Names.hs - compiler/GHC/Runtime/Eval.hs - compiler/GHC/Tc/Errors/Ppr.hs - compiler/GHC/Tc/Errors/Types.hs - compiler/GHC/Tc/Solver.hs - compiler/GHC/Tc/Solver/Equality.hs - compiler/GHC/Tc/Solver/InertSet.hs - compiler/GHC/Tc/Solver/Monad.hs - compiler/GHC/Tc/Types/Constraint.hs - compiler/GHC/Tc/Utils/Monad.hs - compiler/GHC/Tc/Utils/TcType.hs - compiler/GHC/Types/Error/Codes.hs - compiler/GHC/Types/Name/Occurrence.hs - compiler/GHC/Types/Unique.hs - compiler/GHC/Unit/Module/Graph.hs - compiler/GHC/Unit/Types.hs - compiler/Language/Haskell/Syntax/Module/Name.hs - compiler/ghc.cabal.in - docs/users_guide/9.14.1-notes.rst - docs/users_guide/exts/explicit_namespaces.rst - hadrian/README.md - hadrian/bindist/config.mk.in - hadrian/hadrian.cabal - hadrian/src/Oracles/Setting.hs - hadrian/src/Rules/BinaryDist.hs - hadrian/src/Settings/Builders/RunTest.hs - libffi-tarballs - libraries/Cabal - libraries/Win32 - libraries/base/changelog.md - libraries/base/src/GHC/JS/Prim/Internal/Build.hs - libraries/base/src/System/CPUTime/Windows.hsc - libraries/base/tests/perf/encodingAllocations.hs - libraries/directory - libraries/ghc-internal/jsbits/base.js - libraries/ghc-internal/jsbits/errno.js - libraries/ghc-internal/src/GHC/Internal/System/Posix/Internals.hs - libraries/ghc-internal/src/GHC/Internal/Wasm/Prim/Types.hs - libraries/haskeline - libraries/process - libraries/unix - llvm-targets - m4/fp_cc_supports_target.m4 - m4/fp_setup_windows_toolchain.m4 - m4/fptools_set_platform_vars.m4 - m4/ghc_tables_next_to_code.m4 - rts/StgCRun.c - rts/linker/LoadNativeObjPosix.c - rts/linker/PEi386.c - rts/win32/veh_excn.c - testsuite/tests/driver/RecompExports/RecompExports1.stderr - testsuite/tests/driver/RecompExports/RecompExports4.stderr - testsuite/tests/ghc-api/fixed-nodes/all.T - testsuite/tests/interface-stability/base-exports.stdout-javascript-unknown-ghcjs - testsuite/tests/module/T21826.stderr - testsuite/tests/module/mod81.stderr - testsuite/tests/module/mod91.stderr - + testsuite/tests/parser/should_run/T25937.hs - + testsuite/tests/parser/should_run/T25937.stdout - testsuite/tests/parser/should_run/all.T - + testsuite/tests/parser/should_run/parser_unit_tests.hs - testsuite/tests/printer/T17697.stderr - + testsuite/tests/rename/should_compile/T22581c.hs - + testsuite/tests/rename/should_compile/T22581c_helper.hs - + testsuite/tests/rename/should_compile/T22581d.script - + testsuite/tests/rename/should_compile/T22581d.stdout - + testsuite/tests/rename/should_compile/T25983a.hs - + testsuite/tests/rename/should_compile/T25983a.stderr - + testsuite/tests/rename/should_compile/T25983b.hs - + testsuite/tests/rename/should_compile/T25983b.stderr - + testsuite/tests/rename/should_compile/T25983c.hs - + testsuite/tests/rename/should_compile/T25983c.stderr - + testsuite/tests/rename/should_compile/T25983d.hs - + testsuite/tests/rename/should_compile/T25983d.stderr - + testsuite/tests/rename/should_compile/T25983e.hs - + testsuite/tests/rename/should_compile/T25983e.stderr - + testsuite/tests/rename/should_compile/T25983f.hs - + testsuite/tests/rename/should_compile/T25983f.stderr - + testsuite/tests/rename/should_compile/T25983g.hs - + testsuite/tests/rename/should_compile/T25983g.stderr - + testsuite/tests/rename/should_compile/T25984a.hs - + testsuite/tests/rename/should_compile/T25984a.stderr - + testsuite/tests/rename/should_compile/T25984a_helper.hs - + testsuite/tests/rename/should_compile/T25991a.hs - + testsuite/tests/rename/should_compile/T25991a_helper.hs - testsuite/tests/rename/should_compile/all.T - + testsuite/tests/rename/should_fail/T22581a.hs - + testsuite/tests/rename/should_fail/T22581a.stderr - + testsuite/tests/rename/should_fail/T22581a_helper.hs - + testsuite/tests/rename/should_fail/T22581b.hs - + testsuite/tests/rename/should_fail/T22581b.stderr - + testsuite/tests/rename/should_fail/T22581b_helper.hs - + testsuite/tests/rename/should_fail/T25984b.hs - + testsuite/tests/rename/should_fail/T25984b.stderr - + testsuite/tests/rename/should_fail/T25991b1.hs - + testsuite/tests/rename/should_fail/T25991b1.stderr - + testsuite/tests/rename/should_fail/T25991b2.hs - + testsuite/tests/rename/should_fail/T25991b2.stderr - + testsuite/tests/rename/should_fail/T25991b_helper.hs - testsuite/tests/rename/should_fail/T9006.stderr - testsuite/tests/rename/should_fail/all.T - testsuite/tests/rts/all.T - + testsuite/tests/typecheck/should_compile/T26020.hs - + testsuite/tests/typecheck/should_compile/T26020a.hs - + testsuite/tests/typecheck/should_compile/T26020a_help.hs - testsuite/tests/typecheck/should_compile/all.T - + testsuite/tests/typecheck/should_fail/T26004.hs - + testsuite/tests/typecheck/should_fail/T26004.stderr - + testsuite/tests/typecheck/should_fail/T26015.hs - + testsuite/tests/typecheck/should_fail/T26015.stderr - testsuite/tests/typecheck/should_fail/T7453.stderr - testsuite/tests/typecheck/should_fail/all.T - + testsuite/tests/typecheck/should_run/T25998.hs - + testsuite/tests/typecheck/should_run/T25998.stdout - testsuite/tests/typecheck/should_run/all.T - utils/ghc-toolchain/exe/Main.hs - utils/ghc-toolchain/src/GHC/Toolchain/Tools/Cc.hs - utils/haddock/haddock-library/src/Documentation/Haddock/Parser.hs - utils/haddock/haddock-library/test/Documentation/Haddock/ParserSpec.hs - utils/hsc2hs - utils/llvm-targets/gen-data-layout.sh The diff was not included because it is too large. View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/5ddbe01c7202cb9bd9c998c55b4db4… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/5ddbe01c7202cb9bd9c998c55b4db4… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/bco-docs] 2 commits: compiler: Use field selectors when creating BCOs
by Ben Gamari (＠bgamari) 16 May '25

16 May '25

Ben Gamari pushed to branch wip/bco-docs at Glasgow Haskell Compiler / GHC Commits: acd08fcd by Ben Gamari at 2025-05-15T13:05:59-04:00 compiler: Use field selectors when creating BCOs This makes it easier to grep for these fields. - - - - - 882ffdec by Ben Gamari at 2025-05-15T13:06:02-04:00 compiler: Clarify BCO size Previously the semantics and size of StgBCO was a bit unclear. Specifically, the `size` field was documented to contain the size of the bitmap whereas it was actually the size of the closure *and* bitmap. Additionally, it was not as clear as it could be that the bitmap was a full StgLargeBitmap with its own `size` field. - - - - - 4 changed files: - compiler/GHC/ByteCode/Asm.hs - compiler/GHC/ByteCode/Linker.hs - rts/PrimOps.cmm - rts/include/rts/storage/Closures.h Changes: ===================================== compiler/GHC/ByteCode/Asm.hs ===================================== @@ -266,7 +266,13 @@ assembleBCO platform let !insns_arr = mkBCOByteArray $ final_isn_array !bitmap_arr = mkBCOByteArray $ mkBitmapArray bsize bitmap - ul_bco = UnlinkedBCO nm arity insns_arr bitmap_arr (fromSmallArray final_lit_array) (fromSmallArray final_ptr_array) + ul_bco = UnlinkedBCO { unlinkedBCOName = nm + , unlinkedBCOArity = arity + , unlinkedBCOInstrs = insns_arr + , unlinkedBCOBitmap = bitmap_arr + , unlinkedBCOLits = fromSmallArray final_lit_array + , unlinkedBCOPtrs = fromSmallArray final_ptr_array + } -- 8 Aug 01: Finalisers aren't safe when attached to non-primitive -- objects, since they might get run too early. Disable this until @@ -275,6 +281,7 @@ assembleBCO platform return ul_bco +-- | Construct a word-array containing an @StgLargeBitmap@. mkBitmapArray :: Word -> [StgWord] -> UArray Int Word -- Here the return type must be an array of Words, not StgWords, -- because the underlying ByteArray# will end up as a component ===================================== compiler/GHC/ByteCode/Linker.hs ===================================== @@ -65,11 +65,13 @@ linkBCO interp pkgs_loaded le bco_ix (lits :: [Word]) <- mapM (fmap fromIntegral . lookupLiteral interp pkgs_loaded le) (elemsFlatBag lits0) ptrs <- mapM (resolvePtr interp pkgs_loaded le bco_ix) (elemsFlatBag ptrs0) let lits' = listArray (0 :: Int, fromIntegral (sizeFlatBag lits0)-1) lits - return (ResolvedBCO isLittleEndian arity - insns - bitmap - (mkBCOByteArray lits') - (addListToSS emptySS ptrs)) + return $ ResolvedBCO { resolvedBCOIsLE = isLittleEndian + , resolvedBCOArity = arity + , resolvedBCOInstrs = insns + , resolvedBCOBitmap = bitmap + , resolvedBCOLits = mkBCOByteArray lits' + , resolvedBCOPtrs = addListToSS emptySS ptrs + } lookupLiteral :: Interp -> PkgsLoaded -> LinkerEnv -> BCONPtr -> IO Word lookupLiteral interp pkgs_loaded le ptr = case ptr of ===================================== rts/PrimOps.cmm ===================================== @@ -2440,6 +2440,7 @@ stg_newBCOzh ( P_ instrs, W_ arity, P_ bitmap_arr ) { + // N.B. bitmap_arr contains a full StgLargeBitmap object. W_ bco, bytes, words; words = BYTES_TO_WDS(SIZEOF_StgBCO) + BYTE_ARR_WDS(bitmap_arr); ===================================== rts/include/rts/storage/Closures.h ===================================== @@ -427,7 +427,7 @@ typedef struct { StgArrBytes *literals; // literals used by the instructions StgMutArrPtrs *ptrs; // free variables StgHalfWord arity; // arity of this BCO - StgHalfWord size; // size of the bitmap + StgHalfWord size; // size of the closure and bitmap StgWord bitmap[]; // an StgLargeBitmap } StgBCO; View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/0bf1212af899941e6e11347a8b20ad… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/0bf1212af899941e6e11347a8b20ad… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc] Pushed new branch wip/bco-docs
by Ben Gamari (＠bgamari) 16 May '25

16 May '25

Ben Gamari pushed new branch wip/bco-docs at Glasgow Haskell Compiler / GHC -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/tree/wip/bco-docs You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/T25974] Add `.exe` to `WindresCmd` environment var and more debugging info around it
by Serge S. Gulin (＠gulin.serge) 15 May '25

15 May '25

Serge S. Gulin pushed to branch wip/T25974 at Glasgow Haskell Compiler / GHC Commits: caa9b692 by Serge S. Gulin at 2025-05-15T18:58:16+04:00 Add `.exe` to `WindresCmd` environment var and more debugging info around it - - - - - 3 changed files: - .gitlab/generate-ci/gen_ci.hs - .gitlab/jobs.yaml - m4/fp_settings.m4 Changes: ===================================== .gitlab/generate-ci/gen_ci.hs ===================================== @@ -1338,7 +1338,7 @@ cross_jobs = [ . setVariable "SIZE" (llvm_prefix ++ "size") . setVariable "STRINGS" (llvm_prefix ++ "strings") . setVariable "STRIP" (llvm_prefix ++ "strip") - . setVariable "WindresCmd" (llvm_prefix ++ "windres") + . setVariable "WindresCmd" (llvm_prefix ++ "windres" ++ exe_suffix) . setVariable "LLVMAS" (llvm_prefix ++ "clang") . setVariable "LD" (llvm_prefix ++ "ld") -- See Note [Empty MergeObjsCmd] ===================================== .gitlab/jobs.yaml ===================================== @@ -560,7 +560,7 @@ "STRIP": "C:/msys64/opt/ghc-bootstrap/mingw/bin/aarch64-w64-mingw32-strip", "TEST_ENV": "aarch64-linux-deb12-wine-int_native-cross_aarch64-unknown-mingw32-validate-_wine_full_build", "TOOLCHAIN_SOURCE": "env", - "WindresCmd": "C:/msys64/opt/ghc-bootstrap/mingw/bin/aarch64-w64-mingw32-windres" + "WindresCmd": "C:/msys64/opt/ghc-bootstrap/mingw/bin/aarch64-w64-mingw32-windres.exe" } }, "i386-linux-alpine3_20-validate": { @@ -1317,7 +1317,7 @@ "STRIP": "C:/msys64/opt/ghc-bootstrap/mingw/bin/aarch64-w64-mingw32-strip", "TEST_ENV": "aarch64-linux-deb12-wine-int_native-cross_aarch64-unknown-mingw32-validate-_wine_full_build", "TOOLCHAIN_SOURCE": "env", - "WindresCmd": "C:/msys64/opt/ghc-bootstrap/mingw/bin/aarch64-w64-mingw32-windres", + "WindresCmd": "C:/msys64/opt/ghc-bootstrap/mingw/bin/aarch64-w64-mingw32-windres.exe", "XZ_OPT": "-9" } }, ===================================== m4/fp_settings.m4 ===================================== @@ -79,10 +79,13 @@ AC_DEFUN([FP_SETTINGS], [AC_MSG_ERROR(Unknown CPPSupportsG0 value $CmmCPPSupportsG0)] ) + AC_MSG_CHECKING([whether $WindresCmd exists]) if test -z "$WindresCmd"; then SettingsWindresCommand="/bin/false" + AC_MSG_RESULT([no, use $SettingsWindresCommand]) else SettingsWindresCommand="$WindresCmd" + AC_MSG_RESULT([yes]) fi # LLVM backend tools @@ -92,6 +95,7 @@ AC_DEFUN([FP_SETTINGS], SettingsLlvmAsFlags="$LlvmAsFlags" if test "$EnableDistroToolchain" = "YES"; then + AC_MSG_NOTICE([--enable-distro-toolchain is specified, applying basename]) # If the user specified --enable-distro-toolchain then we just use the # executable names, not paths. SettingsCCompilerCommand="$(basename $SettingsCCompilerCommand)" @@ -108,6 +112,7 @@ AC_DEFUN([FP_SETTINGS], fi if test "$windows" = YES -a "$EnableDistroToolchain" = "NO"; then + AC_MSG_NOTICE([--enable-distro-toolchain is not specified at Windows]) # Handle the Windows toolchain installed in FP_SETUP_WINDOWS_TOOLCHAIN. # We need to issue a substitution to use $tooldir, # See Note [tooldir: How GHC finds mingw on Windows] View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/caa9b692569eb03a2a4d1e4ae990cbc… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/caa9b692569eb03a2a4d1e4ae990cbc… You're receiving this email because of your account on gitlab.haskell.org.

1 0