diff options
| author | Josh Meredith <joshmeredith2008@gmail.com> | 2023-03-10 06:39:27 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2023-03-10 23:24:49 -0500 |
| commit | bab232795865e9abb82b75c7e72329778e23a345 (patch) | |
| tree | 3f3539dc26098f9fcf6380e4b982e5a572c96466 | |
| parent | 5b4628aeeca9b7ae0665378f0ce1b1d967c6a1c9 (diff) | |
| download | haskell-bab232795865e9abb82b75c7e72329778e23a345.tar.gz | |
JS: Fix implementation of MK_JSVAL
| -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 |