Source file settings.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
open Js_of_ocaml.Js
open Js_of_ocaml.Js.Unsafe

let get_optimize_level () = meth_call global##.binaryen "getOptimizeLevel" [||]

let set_optimize_level level =
  meth_call global##.binaryen "setOptimizeLevel" [| inject level |]

let get_shrink_level () = meth_call global##.binaryen "getShrinkLevel" [||]

let set_shrink_level level =
  meth_call global##.binaryen "setShrinkLevel" [| inject level |]

(* Uses the `_Binaryen` function because then we are working with ints which are also booleans to JSOO *)
let get_debug_info () = meth_call global##.binaryen "_BinaryenGetDebugInfo" [||]

(* Uses the `_Binaryen` function because then we are working with ints which are also booleans to JSOO *)
let set_debug_info on =
  meth_call global##.binaryen "_BinaryenSetDebugInfo" [| inject on |]

(* Uses the `_Binaryen` function because then we are working with ints which are also booleans to JSOO *)
let get_low_memory_unused () =
  meth_call global##.binaryen "_BinaryenGetLowMemoryUnused" [||]

(* Uses the `_Binaryen` function because then we are working with ints which are also booleans to JSOO *)
let set_low_memory_unused on =
  meth_call global##.binaryen "_BinaryenSetLowMemoryUnused" [| inject on |]

let get_pass_argument key =
  meth_call global##.binaryen "getPassArgument" [| inject (string key) |]

let set_pass_argument key value =
  meth_call global##.binaryen "setPassArgument"
    [| inject (string key); inject (string value) |]

let get_always_inline_max_size () =
  meth_call global##.binaryen "getAlwaysInlineMaxSize" [||]

let set_always_inline_max_size size =
  meth_call global##.binaryen "setAlwaysInlineMaxSize" [| inject size |]

let get_flexible_inline_max_size () =
  meth_call global##.binaryen "getFlexibleInlineMaxSize" [||]

let set_flexible_inline_max_size size =
  meth_call global##.binaryen "setFlexibleInlineMaxSize" [| inject size |]

let get_one_caller_inline_max_size () =
  meth_call global##.binaryen "getOneCallerInlineMaxSize" [||]

let set_one_caller_inline_max_size size =
  meth_call global##.binaryen "setOneCallerInlineMaxSize" [| inject size |]

(* Uses the `_Binaryen` function because then we are working with ints which are also booleans to JSOO *)
let set_colors_enabled enabled =
  meth_call global##.binaryen "_BinaryenSetColorsEnabled" [| inject enabled |]

(* Uses the `_Binaryen` function because then we are working with ints which are also booleans to JSOO *)
let are_colors_enabled () =
  meth_call global##.binaryen "_BinaryenAreColorsEnabled" [||]