diff options
| author | Josh Meredith <joshmeredith2008@gmail.com> | 2023-03-10 06:39:27 +0000 |
|---|---|---|
| committer | Josh Meredith <joshmeredith2008@gmail.com> | 2023-03-10 06:39:27 +0000 |
| commit | 01a56378779445ce5861caac593e178a4269eecc (patch) | |
| tree | 10feb32031d5b5030bd115ce68e50619f4943417 | |
| parent | 9ea719f2f1929bf2b789e4001f6c542a04185d61 (diff) | |
| download | haskell-wip/js-MK_JSVAL.tar.gz | |
JS: Fix implementation of MK_JSVALwip/js-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 |