diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2023-02-15 09:45:17 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2023-02-16 06:45:15 -0500 |
| commit | 324e925be847d3969724be3e1b82c25899aaca27 (patch) | |
| tree | 591dec9a1066dbfd25b6f827aa0466306152a5d0 | |
| parent | df3d94bd2958b36823e8bec8786da2a6498ab1ab (diff) | |
| download | haskell-324e925be847d3969724be3e1b82c25899aaca27.tar.gz | |
JS: disable debugging info for heap objects
| -rw-r--r-- | compiler/GHC/StgToJS/Linker/Linker.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/GHC/StgToJS/Linker/Linker.hs b/compiler/GHC/StgToJS/Linker/Linker.hs index 9c4a077c0b..0739c73204 100644 --- a/compiler/GHC/StgToJS/Linker/Linker.hs +++ b/compiler/GHC/StgToJS/Linker/Linker.hs @@ -867,11 +867,13 @@ linkModules mods = (compact_mods, meta) statics = nubStaticInfo (concatMap mc_statics mods) infos = concatMap mc_closures mods + debug = False -- TODO: this could be enabled in a debug build. + -- It adds debug info to heap objects meta = mconcat -- render metadata as individual statements [ mconcat (map staticDeclStat statics) , mconcat (map staticInitStat statics) - , mconcat (map (closureInfoStat True) infos) + , mconcat (map (closureInfoStat debug) infos) ] -- | Only keep a single StaticInfo with a given name |