[Git][ghc/ghc][wip/js-staging] fix definitions in js/rts.h
Luite Stegeman (@luite)
gitlab at gitlab.haskell.org
Tue Aug 30 12:53:44 UTC 2022
Luite Stegeman pushed to branch wip/js-staging at Glasgow Haskell Compiler / GHC
Commits:
8a44a493 by Luite Stegeman at 2022-08-30T14:53:01+02:00
fix definitions in js/rts.h
- - - - -
1 changed file:
- rts/include/js/rts.h
Changes:
=====================================
rts/include/js/rts.h
=====================================
@@ -34,22 +34,22 @@
-// GHCJS.Prim.JSVal
+// GHC.JS.Prim.JSVal
#ifdef GHCJS_PROF
-#define MK_JSVAL(x) (h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x), h$CCS_SYSTEM))
+#define MK_JSVAL(x) (h$c1(h$baseZCGHCziJSziPrimziJSVal_con_e, (x), h$CCS_SYSTEM))
#else
-#define MK_JSVAL(x) (h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x)))
+#define MK_JSVAL(x) (h$c1(h$baseZCGHCziJSziPrimziJSVal_con_e, (x)))
#endif
#define JSVAL_VAL(x) ((x).d1)
-// GHCJS.Prim.JSException
+// GHC.JS.Prim.JSException
#ifdef GHCJS_PROF
-#define MK_JSEXCEPTION(msg,hsMsg) (h$c2(h$ghcjszmprimZCGHCJSziPrimziJSException_con_e,(msg),(hsMsg),h$CCS_SYSTEM))
+#define MK_JSEXCEPTION(msg,hsMsg) (h$c2(h$baseZCGHCziJSziPrimziJSException_con_e,(msg),(hsMsg),h$CCS_SYSTEM))
#else
-#define MK_JSEXCEPTION(msg,hsMsg) (h$c2(h$ghcjszmprimZCGHCJSziPrimziJSException_con_e,(msg),(hsMsg)))
+#define MK_JSEXCEPTION(msg,hsMsg) (h$c2(h$baseZCGHCziJSziPrimziJSException_con_e,(msg),(hsMsg)))
#endif
// Exception dictionary for JSException
-#define HS_JSEXCEPTION_EXCEPTION h$ghcjszmprimZCGHCJSziPrimzizdfExceptionJSException
+#define HS_JSEXCEPTION_EXCEPTION h$baseZCGHCziJSziPrimzizdfExceptionJSException
// SomeException
#ifdef GHCJS_PROF
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/8a44a493d3fd9bcf5059f333b128cdab1b69566b
--
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/8a44a493d3fd9bcf5059f333b128cdab1b69566b
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/20220830/395524cf/attachment-0001.html>
More information about the ghc-commits
mailing list