GitLab

Rodrigo Mesquita pushed to branch wip/romes/26227 at Glasgow Haskell Compiler / GHC

Commits:

3150b664

by Rodrigo Mesquita at 2025-08-01T16:07:33+01:00

Drop "unlit command" from settings

The `unlit` program is a binary distributed with ghc. Its location is
hardcoded to a path relative to its `$topdir`.

It's unnecessary and confusing to write this into a global or per-target
settings file since we don't allow it to be configured (except at
runtime with -pgmL).

Towards #26227

4 changed files:

compiler/GHC/Driver/Session.hs
compiler/GHC/Settings/IO.hs
hadrian/bindist/Makefile
hadrian/src/Rules/Generate.hs

Changes:

compiler/GHC/Driver/Session.hs

@@ -3502,6 +3502,7 @@ compilerInfo dflags
         ("target has .ident directive", queryBool tgtSupportsIdentDirective),
         ("target has subsections via symbols", queryBool tgtSupportsSubsectionsViaSymbols),
         ("target RTS linker only supports shared libraries", queryBool tgtRTSLinkerOnlySupportsSharedLibs),
 +       ("unlit command", toolSettings_pgm_L (toolSettings dflags)),
         ("Unregisterised", queryBool tgtUnregisterised),
         ("LLVM target", query tgtLlvmTarget),
         ("LLVM llc command", queryCmdMaybe id tgtLlc),

compiler/GHC/Settings/IO.hs

@@ -131,12 +131,8 @@ initSettings top_dir = do
    let ghc_usage_msg_path  = installed "ghc-usage.txt"
        ghci_usage_msg_path = installed "ghci-usage.txt"
 -  -- For all systems, unlit, split, mangle are GHC utilities
 -  -- architecture-specific stuff is done when building Config.hs
 -  unlit_path <- getToolSetting "unlit command"
+-
 -  -- Other things being equal, 'as' is simply 'gcc'
 -  let (cc_link, cc_link_args) = getTool (ccLinkProgram . tgtCCompilerLink)
 +      -- Other things being equal, 'as' is simply 'gcc'
 +      (cc_link, cc_link_args) = getTool (ccLinkProgram . tgtCCompilerLink)
        as_prog      = cc_prog
        as_args      = map Option cc_args
        ld_prog      = cc_link
@@ -146,6 +142,9 @@ initSettings top_dir = do
          let (ld_r_path, ld_r_args) = getTool (mergeObjsProgram . const ld_r_prog)
          pure (ld_r_path, map Option ld_r_args)
        iserv_prog   = libexec "ghc-iserv"
 +      unlit_prog   = libexec (if (tgtLocallyExecutable target)
 +                                  then "unlit" -- not a cross compiler
 +                                  else targetPlatformTriple target ++ "-unlit")
    baseUnitId <- getSetting_raw "base unit-id"
@@ -180,7 +179,7 @@ initSettings top_dir = do
        , toolSettings_arSupportsDashL  = arSupportsDashL  $ tgtAr target
        , toolSettings_cmmCppSupportsG0 = cmmCppSupportsG0 $ tgtCmmCPreprocessor target
 -      , toolSettings_pgm_L       = unlit_path
 +      , toolSettings_pgm_L       = unlit_prog
        , toolSettings_pgm_P       = (hs_cpp_prog, map Option hs_cpp_args)
        , toolSettings_pgm_JSP     = (js_cpp_prog, map Option js_cpp_args)
        , toolSettings_pgm_CmmP    = (cmmCpp_prog, map Option cmmCpp_args)

hadrian/bindist/Makefile

@@ -85,8 +85,7 @@ WrapperBinsDir=${bindir}
  # N.B. this is duplicated from includes/ghc.mk.
  lib/settings : config.mk
  	@rm -f $@
 -	@echo '[("unlit command", "$$topdir/../bin/$(CrossCompilePrefix)unlit")' >> $@
 -	@echo ',("RTS ways", "$(GhcRTSWays)")' >> $@
 +	@echo '[("RTS ways", "$(GhcRTSWays)")' >> $@
  	@echo ',("Relative Global Package DB", "package.conf.d")' >> $@
  	@echo ',("base unit-id", "$(BaseUnitId)")' >> $@
  	@echo "]" >> $@

hadrian/src/Rules/Generate.hs

@@ -8,7 +8,6 @@ import Development.Shake.FilePath
  import Data.Char (isSpace)
  import qualified Data.Set as Set
  import Base
 -import qualified Context
  import Expression
  import Hadrian.Oracles.TextFile (lookupSystemConfig, getTargetTarget)
  import Oracles.Flag hiding (arSupportsAtFile, arSupportsDashL)
@@ -460,7 +459,6 @@ ghcWrapper stage  = do
  generateSettings :: FilePath -> Expr String
  generateSettings settingsFile = do
 -    ctx <- getContext
      stage <- getStage
      package_db_path <- expr $ do
@@ -482,8 +480,7 @@ generateSettings settingsFile = do
      let rel_pkg_db = makeRelativeNoSysLink (dropFileName settingsFile) package_db_path
      settings <- traverse sequence $
 -        [ ("unlit command", ("$topdir/../bin/" <>) <$> expr (programName (ctx { Context.package = unlit })))
 -        , ("RTS ways", escapeArgs . map show . Set.toList <$> getRtsWays)
 +        [ ("RTS ways", escapeArgs . map show . Set.toList <$> getRtsWays)
          , ("Relative Global Package DB", pure rel_pkg_db)
          , ("base unit-id", pure base_unit_id)
+         ]