initLoaderState interp hsc_env

   -- Take lock for the actual work.

     let link_opts = initLinkDepsOpts hsc_env

     -- Find what packages and linkables are required

     -- FIXME: we should make the JS linker load new_objs here, instead of

     -- on-demand.

     let pls' = pls { objs_loaded = objs_loaded' }

   let foreign_stubs    = NoStubs

   -- link code containing binding "id_sym = expr", using id_sym as root

   withJSInterp i $ \inst -> do

     let roots = mkExportedModFuns this_mod [id_sym]

   -- look up "id_sym" closure and create a StablePtr (HValue) from it

   href <- lookupClosure interp (IFaststringSymbol id_sym) >>= \case

   binding_fref <- withJSInterp i $ \inst ->

                     mkForeignRef href (freeReallyRemoteRef inst href)

 {- **********************************************************************

 -- | Link object files

   let link_cfg = JSLinkConfig

         { lcNoStats         = True  -- we don't need the stats

         , lcNoRts           = True  -- we don't need the RTS (already linked)

         , lcLinkCsources    = True  -- enable C sources, if any

         }

   -- compute dependencies

   let link_spec = LinkSpec

 -- | Link an object file using the given functions as roots

   let is_root f = Set.member f (Set.fromList roots)

   let objs      = [obj]

 -- | Link the given link plan

 test('T22958b', just_ghci, compile_and_run, [''])

 test('T22958c', just_ghci, compile_and_run, [''])

 test('GhciMainIs', just_ghci, compile_and_run, ['-main-is otherMain'])

 test('T24115', just_ghci + [extra_run_opts("-e ':add T24115.hs'")], ghci_script, ['T24115.script'])

 test('T24744', normal, makefile_test, ['T24744'])

 test('T25633', normal, compile_and_run, [''])

       # the final module (BootFldReexport), but not fail earlier.

     , ['BootFldReexport', '-v0'])

 test('T23220'

     , multimod_compile, ['T23220_aux.hs T23220.hs', '-v0'])

 test('T22106_A', [extra_files(['T22106_aux.hs'])], multimod_compile, ['T22106_A', '-v0'])

 test('T22106_B', [extra_files(['T22106_aux.hs'])], multimod_compile, ['T22106_B', '-v0'])

 test('overloadedrecfldsrun02', [extra_files(['OverloadedRecFldsRun02_A.hs'])], multimod_compile_and_run,

      ['overloadedrecfldsrun02', ''])

 test('overloadedrecfldsrun03', normal, compile_and_run, [''])

 test('overloadedrecfldsrun05', normal, compile_and_run, [''])

 test('overloadedrecfldsrun07', normal, compile_and_run, [''])

 test('overloadedrecflds_generics', normal, compile_and_run, [''])

       # profiling ways, due to the TH use, so for now we just

       # omit the profiling ways

       omit_ways(prof_ways),

 	multimod_compile_and_run,

 	['Main', ''])

 test('qq006', [extra_files(['Expr.hs', 'Main.hs']),

                when(fast(), skip),

      ['Main', '-v0'])

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

 test('saks027', req_th, compile, ['-v0 -ddump-splices -dsuppress-uniques'])

 test('T17164',  req_th, compile, ['-v0 -ddump-splices -dsuppress-uniques'])

 test('DocsInHiFile1', extra_files(['DocsInHiFile.hs']), makefile_test, [])

 test('T17871', [extra_files(['T17871a.hs'])], multimod_compile, ['T17871', '-v0'])

 test('DocsInHiFileTH',

      makefile_test, [])

 test('NoExportList', normal, makefile_test, [])

 test('PragmaDocs', normal, makefile_test, [])

 test('T1476b', normal, compile, ['-v0'])

 test('T8031', normal, compile, ['-v0'])

 test('T8624', only_ways(['normal']), makefile_test, ['T8624'])

 test('T10047', only_ways(['ghci']), ghci_script, ['T10047.script'])

 test('T10019', only_ways(['ghci']), ghci_script, ['T10019.script'])

 test('T10267', [], multimod_compile_fail,

 test('T22326_th_dump1', req_th, compile, ['-v0 -ddump-splices -dsuppress-uniques'])

 test('T23739_th_dump1', req_th, compile, ['-v0 -ddump-splices -dsuppress-uniques'])

 test('T23738_th', req_th, compile, [''])

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