GitLab

9b74d982

by Zubin Duggal at 2025-12-18T14:49:03+05:30

compiler: Warn when -finfo-table-map is used with -fllvm

These are currently not supported together.

Fixes #26435

@@ -3843,6 +3843,11 @@ makeDynFlagsConsistent dflags
                                   hostFullWays
          in dflags_c
 + | gopt Opt_InfoTableMap dflags
 + , LlvmCodeOutput <- backendCodeOutput (backend dflags)
 +    = loop (gopt_unset dflags Opt_InfoTableMap)
 +           "-finfo-table-map is incompatible with -fllvm and is disabled (See #26435)"
++
   | otherwise = (dflags, mempty, mempty)
      where loc = mkGeneralSrcSpan (fsLit "when making flags consistent")
            loop updated_dflags warning

@@ -370,6 +370,11 @@ to a source location. This lookup table is generated by using the ``-finfo-table
      also want more precise information about constructor info tables then you
      should also use :ghc-flag:`-fdistinct-constructor-tables`.
 +    .. note::
 +        This flag is incompatible with :ghc-flag:`-fllvm`. If both flags are
 +        enabled, GHC will emit a warning and :ghc-flag:`-finfo-table-map` will
 +        have no effect.
++
      The :ghc-flag:`-finfo-table-map` flag will increase the binary size by quite
      a lot, depending on how big your project is. For compiling a project the
      size of GHC the overhead was about 200 megabytes.

 +when making flags consistent: warning: [GHC-74335] [-Winconsistent-flags (in -Wdefault)]
 +    -finfo-table-map is incompatible with -fllvm and is disabled (See #26435)
++
 +[1 of 2] Compiling Main             ( T26435.hs, T26435.o )
 +[2 of 2] Linking T26435

 +module Main where
 +import GHC.InfoProv
++
 +main :: IO ()
 +main = print =<< whereFrom main

+Nothing

@@ -334,3 +334,4 @@ test('T26018', req_c, makefile_test, [])
  test('T24120', normal, compile, ['-Wunused-packages -hide-all-packages -package base -package system-cxx-std-lib'])
  test('T26551', [extra_files(['T26551.hs'])], makefile_test, [])
  test('T24731', [only_ways(['ext-interp'])], compile, ['-fexternal-interpreter -pgmi ""'])
 +test('T26435', [only_ways(['llvm'])], warn_and_run, ['-finfo-table-map'])