1 files changed, 24 insertions, 0 deletions
diff --git a/rts/js/globals.js b/rts/js/globals.js
new file mode 100644
index 0000000000..4ae7ae8ee9
--- /dev/null
+++ b/rts/js/globals.js
@@ -0,0 +1,24 @@
+//#OPTIONS: CPP
+
+// Globals used by GHC
+
+#define GVAR(name,nvar) \
+  var h$global_ ## nvar ## _a = null;\
+  var h$global_ ## nvar ## _o = null;\
+  function name(a,o) {\
+    if (!h$global_ ## nvar ## _a) {\
+      h$global_ ## nvar ## _a = a;\
+      h$global_ ## nvar ## _o = o;\
+    }\
+    RETURN_UBX_TUP2(h$global_ ## nvar ##_a, h$global_ ## nvar ##_o);\
+  }
+
+GVAR(h$getOrSetLibHSghcGlobalHasPprDebug, has_ppr_debug)
+GVAR(h$getOrSetLibHSghcGlobalHasNoDebugOutput, has_no_debug_output)
+GVAR(h$getOrSetLibHSghcGlobalHasNoStateHack, has_no_state_hack)
+GVAR(h$getOrSetLibHSghcFastStringTable, faststring_table)
+
+var h$ghc_unique_inc       = h$newByteArray(4);
+h$ghc_unique_inc.i3[0]     = 1;
+var h$ghc_unique_counter   = h$newByteArray(4);
+h$ghc_unique_counter.i3[0] = 0;