[Git][ghc/ghc][master] JS: fix allocation constant (fix #24746)

[Marge Bot (@marge-bot)]

Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC


Commits:
bb40244e by Sylvain Henry at 2024-05-18T00:28:06-04:00
JS: fix allocation constant (fix #24746)

- - - - -


1 changed file:

- compiler/GHC/StgToJS/CodeGen.hs


Changes:

=====================================
compiler/GHC/StgToJS/CodeGen.hs
=====================================
@@ -95,7 +95,7 @@ stgToJS logger config stg_binds0 this_mod spt_entries foreign_stubs cccs output_
       $ vcat (fmap (jsToDoc . oiStat . luObjBlock) lus)
 
   -- Write the object file
-  bh <- openBinMem (4 * 1024 * 1000) -- a bit less than 4kB
+  bh <- openBinMem (4 * 1000) -- a bit less than 4kB
   Object.putObject bh (moduleName this_mod) deps (map luObjBlock lus)
 
   createDirectoryIfMissing True (takeDirectory output_fn)



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/bb40244e457e50ab87844b9bcb107203cfa9a54b

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/bb40244e457e50ab87844b9bcb107203cfa9a54b
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20240518/5c97d268/attachment.html>