[Git][ghc/ghc][wip/js-rts-fixmes] Apply 1 suggestion(s) to 1 file(s)

[Josh Meredith (@JoshMeredith)]

Josh Meredith pushed to branch wip/js-rts-fixmes at Glasgow Haskell Compiler / GHC


Commits:
acbeb433 by Sylvain Henry at 2023-02-06T09:34:33+00:00
Apply 1 suggestion(s) to 1 file(s)
- - - - -


1 changed file:

- compiler/GHC/StgToJS/Rts/Rts.hs


Changes:

=====================================
compiler/GHC/StgToJS/Rts/Rts.hs
=====================================
@@ -175,8 +175,9 @@ closureConstructors s = BlockStat
     mkDataFill n = funName ||= toJExpr fun
       where
         funName    = TxtI $ dataName n
-        extra_args = ValExpr . JHash . listToUniqMap . zip dataFieldNames $ map (toJExpr . TxtI) dataFieldNames
-        fun        = JFunc (map TxtI dataFieldNames) (checkD <> returnS extra_args)
+        ds         = take n dataFieldNames
+        extra_args = ValExpr . JHash . listToUniqMap . zip ds $ map (toJExpr . TxtI) ds
+        fun        = JFunc (map TxtI ds) (checkD <> returnS extra_args)
 
 -- | JS Payload to perform stack manipulation in the RTS
 stackManip :: JStat



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/acbeb4331ed19fb5406b381a8a9c2d87fd290381
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/20230206/05f6b447/attachment-0001.html>