rts/js/globals.js


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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;