diff options
| author | Josh Meredith <joshmeredith2008@gmail.com> | 2023-03-10 06:39:27 +0000 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2023-05-15 18:34:25 -0400 |
| commit | 595edd68d9a93ed5e54bd0e1c50f14b778b458eb (patch) | |
| tree | 90ace3bd412d6cc237fc267003eafdc6369cb4fa | |
| parent | e0f3aec8f4537fb75f2b38db0da6b7b52d8d29d6 (diff) | |
| download | haskell-595edd68d9a93ed5e54bd0e1c50f14b778b458eb.tar.gz | |
JS: Fix implementation of MK_JSVAL
(cherry picked from commit bab232795865e9abb82b75c7e72329778e23a345)
| -rw-r--r-- | compiler/GHC/StgToJS/Linker/Utils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/StgToJS/Linker/Utils.hs b/compiler/GHC/StgToJS/Linker/Utils.hs index 0733b73ff6..36a190fed6 100644 --- a/compiler/GHC/StgToJS/Linker/Utils.hs +++ b/compiler/GHC/StgToJS/Linker/Utils.hs @@ -115,8 +115,8 @@ genCommonCppDefs profiling = mconcat -- GHCJS.Prim.JSVal , if profiling - then "#define MK_JSVAL(x) (h$baseZCGHCziJSziPrimziJSVal_con_e, (x), h$CCS_SYSTEM)\n" - else "#define MK_JSVAL(x) (h$baseZCGHCziJSziPrimziJSVal_con_e, (x))\n" + then "#define MK_JSVAL(x) (h$c1(h$baseZCGHCziJSziPrimziJSVal_con_e, (x), h$CCS_SYSTEM))\n" + else "#define MK_JSVAL(x) (h$c1(h$baseZCGHCziJSziPrimziJSVal_con_e, (x)))\n" , "#define JSVAL_VAL(x) ((x).d1)\n" -- GHCJS.Prim.JSException |