Torsten Schmits pushed to branch wip/torsten.schmits/worker-debug at Glasgow Haskell Compiler / GHC
Commits:
-
6d8c65a7
by Torsten Schmits at 2025-05-16T18:47:18+02:00
1 changed file:
Changes:
| ... | ... | @@ -625,7 +625,9 @@ setUnitDynFlagsNoCheck uid dflags1 = do |
| 625 | 625 | |
| 626 | 626 | let old_hue = ue_findHomeUnitEnv uid (hsc_unit_env hsc_env)
|
| 627 | 627 | let cached_unit_dbs = homeUnitEnv_unit_dbs old_hue
|
| 628 | - (dbs,unit_state,home_unit,mconstants) <- liftIO $ initUnits logger dflags1 cached_unit_dbs (hsc_all_home_unit_ids hsc_env)
|
|
| 628 | + !all_ids = hsc_all_home_unit_ids hsc_env
|
|
| 629 | + !all_ids' = seq (ppr all_ids) all_ids
|
|
| 630 | + (dbs,unit_state,home_unit,mconstants) <- liftIO $ initUnits logger dflags1 cached_unit_dbs all_ids'
|
|
| 629 | 631 | updated_dflags <- liftIO $ updatePlatformConstants dflags1 mconstants
|
| 630 | 632 | |
| 631 | 633 | let upd hue =
|