-Wimplicit

 -include

 rts/include/ghcversion.h

 -DDEBUG

 -DDYNAMIC

 -DPROFILING

 import GHC.Utils.Outputable

 -- Debug Instance

 instance Outputable JumpDest where

 import GHC.Types.Unique

 import GHC.Utils.Outputable (ppr, text, Outputable, (<>))

 -- Debug Instance

 instance Outputable JumpDest where

 -- We also need to do the same for multiplicity! Which, since multiplicities are

 -- encoded simply as a 'Type', amounts to have a Trie for a pair of types. Tries

 -- of pairs are composition.

 -- TODO(22292): derive

 instance Functor BndrMap where

 -- Currently implemented with unsafe lazy IO. But it could be implemented with

 -- an IORef as the exposed interface is in IO.

 data LlvmConfigCache = LlvmConfigCache LlvmConfig

 initLlvmConfigCache :: FilePath -> IO LlvmConfigCache

 initLlvmConfigCache top_dir = pure $ LlvmConfigCache (unsafePerformIO $ initLlvmConfig top_dir)

   T_MergeForeign :: PipeEnv -> HscEnv -> FilePath -> [FilePath] -> TPhase FilePath

 -- | A wrapper around the interpretation function for phases.

                                       -- in module Language.Haskell.Syntax.Extension

 {-# LANGUAGE TypeFamilies #-}

 {-# LANGUAGE LambdaCase #-}

 module GHC.Tc.Utils.Env(

         TyThing(..), TcTyThing(..), TcId,

 notFound :: Name -> TcM TyThing

 notFound name

   = do { lcl_env <- getLclEnv

        ; if isTermVarOrFieldNameSpace (nameNameSpace name)

            then

                -- This code path is only reachable with RequiredTypeArguments enabled

 {- Note [Out of scope might be a staging error]

 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 Consider

 -}

     # of whether we expected the compilation to fail or not (successful

     # compilations may generate warnings).

     actual_stderr_file = add_suffix(name, 'comp.stderr')

     diff_file_name = in_testdir(add_suffix(name, 'comp.diff'))

     # of whether we expected the compilation to fail or not (successful

     # compilations may generate warnings).

     actual_asm_file = add_suffix(name, 's')

     if not await compare_outputs(way, 'asm',

     if badResult(result):

         return result

     actual_asm_file = add_suffix(name, 's')

     if not grep_output(join_normalisers(normalise_errmsg),

     if badResult(result):

         return result

     actual_core_file = add_suffix(name, 'dump-simpl')

     if not grep_output(join_normalisers(normalise_errmsg),

             return result

         if compile_stderr:

             actual_stderr_file = add_suffix(name, 'comp.stderr')

             diff_file_name = in_testdir(add_suffix(name, 'comp.diff'))

 async def stdout_ok(name: TestName, way: WayName) -> bool:

    actual_stdout_file = add_suffix(name, 'run.stdout')

    extra_norm = join_normalisers(normalise_output, getTestOpts().extra_normaliser)

 async def stderr_ok(name: TestName, way: WayName) -> bool:

    actual_stderr_file = add_suffix(name, 'run.stderr')

    return await compare_outputs(way, 'stderr',

                           join_normalisers(normalise_errmsg, getTestOpts().extra_errmsg_normaliser), \

         return False

 async def check_prof_ok(name: TestName, way: WayName) -> bool:

     expected_prof_path = in_testdir(expected_prof_file)

     # Check actual prof file only if we have an expected prof file to

 # Finding the sample output.  The filename is of the form

 #

 #

     basename = add_suffix(name, suff)

     # Override the basename if the user has specified one, this will then be

     # subjected to the same name mangling scheme as normal to allow platform

     # specific overrides to work.

     basename = getTestOpts().use_specs.get(suff, basename)

              for plat in ['-' + config.platform, '-' + config.os, '']

     for f in files:

         if in_srcdir(f).exists():

 test('T20696', [extra_files(['A.hs', 'B.hs', 'C.hs'])

                , unless(ghc_dynamic(), skip)], multimod_compile, ['A', ''])

 test('T20696-static', [extra_files(['A.hs', 'B.hs', 'C.hs'])

                , when(ghc_dynamic(), skip)], multimod_compile, ['A', ''])

 # Check linking works when using -fbyte-code-and-object-code

 test('fat011', [req_th, extra_files(['FatMain.hs', 'FatTH.hs', 'FatQuote.hs'])], multimod_compile, ['FatMain', '-fbyte-code-and-object-code -fprefer-byte-code'])

 # Check that we use interpreter rather than enable dynamic-too if needed for TH

 # Check that no objects are generated if using -fno-code and -fprefer-byte-code

 test('fat013', [req_th, req_bco, extra_files(['FatTH.hs', 'FatQuote.hs'])], multimod_compile, ['FatTH', '-fno-code -fprefer-byte-code'])

 # When using interpreter should not produce objects

 test('fat014', [req_th, extra_files(['FatTH.hs', 'FatQuote.hs']), extra_run_opts('-fno-code')], ghci_script, ['fat014.script'])

 test('T22807', [req_th, unless(ghc_dynamic(), skip), extra_files(['T22807A.hs', 'T22807B.hs'])]

              , makefile_test, ['T22807'])

 test('T22807_ghci', [req_th, unless(ghc_dynamic(), skip), extra_files(['T22807_ghci.hs'])]

 test('SI04', [extra_files(["SI01A.hs"])], multimod_compile, ['SI04', '-v0'])

 test('SI05', [extra_files(["SI01A.hs"])], multimod_compile_fail, ['SI05', '-v0'])

 test('SI06', [extra_files(["SI01A.hs"])], multimod_compile, ['SI06', '-v0'])

 # Instance tests

 test('SI08', [extra_files(["ClassA.hs", "InstanceA.hs"])], multimod_compile_fail, ['SI08', '-v0'])

 test('SI09', [extra_files(["ClassA.hs", "InstanceA.hs"])], multimod_compile, ['SI09', '-v0'])

 test('QQTopError', normal, compile_fail, ['-fdiagnostics-show-caret'])

 test('GadtConSigs_th_pprint1', normal, compile, [''])

 test('GadtConSigs_th_dump1', normal, compile, ['-v0 -ddump-splices -dsuppress-uniques'])