summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSylvain Henry <sylvain@haskus.fr>2023-02-15 09:45:17 +0100
committerMarge Bot <ben+marge-bot@smart-cactus.org>2023-02-16 06:45:15 -0500
commit324e925be847d3969724be3e1b82c25899aaca27 (patch)
tree591dec9a1066dbfd25b6f827aa0466306152a5d0
parentdf3d94bd2958b36823e8bec8786da2a6498ab1ab (diff)
downloadhaskell-324e925be847d3969724be3e1b82c25899aaca27.tar.gz
JS: disable debugging info for heap objects
-rw-r--r--compiler/GHC/StgToJS/Linker/Linker.hs4
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