| /external/llvm/test/Bindings/Ocaml/ |
| bitwriter.ml | 13 let context = Llvm.global_context ()
15 let test x = if not x then exit 1 else ()
17 let read_file name =
18 let ic = open_in_bin name in
19 let len = in_channel_length ic in
20 let buf = String.create len in
28 let temp_bitcode ?unbuffered m =
29 let temp_name, temp_oc = Filename.open_temp_file ~mode:[Open_binary] "" "" in
34 let temp_buf = read_file temp_name in
40 let _
[all...] |
| passmgr_builder.ml | 16 let context = global_context ()
17 let void_type = Llvm.void_type context
20 let print_checkpoints = false
22 let suite name f =
30 let filename = Sys.argv.(1)
31 let m = create_module context filename
36 let test_pmbuilder () =
37 let (++) x f = ignore (f x); x in
39 let module_passmgr = PassManager.create () in
40 let func_passmgr = PassManager.create_function m i
[all...] |
| executionengine.ml | 16 let context = global_context ()
17 let i8_type = Llvm.i8_type context
18 let i32_type = Llvm.i32_type context
19 let i64_type = Llvm.i64_type context
20 let double_type = Llvm.double_type context
22 let bomb msg =
26 let define_main_fn m retval =
27 let fn =
28 let str_arr_type = pointer_type (pointer_type i8_type) in
32 let b = builder_at_end (global_context ()) (entry_block fn) i
[all...] |
| vectorize_opts.ml | 17 let context = global_context ()
18 let void_type = Llvm.void_type context
21 let print_checkpoints = false
23 let suite name f =
31 let filename = Sys.argv.(1)
32 let m = create_module context filename
37 let test_transforms () =
38 let (++) x f = ignore (f x); x in
40 let fty = function_type void_type [| |] in
41 let fn = define_function "fn" fty m i
[all...] |
| irreader.ml | 16 let context = global_context ()
19 let print_checkpoints = false
21 let suite name f =
26 let _ =
29 let insist cond =
35 let test_irreader () =
37 let buf = MemoryBuffer.of_string "@foo = global i32 42" in
38 let m = parse_ir context buf in
47 let buf = MemoryBuffer.of_string "@foo = global garble" in
58 let _
[all...] |
| bitreader.ml | 13 let context = Llvm.global_context ()
15 let test x = if not x then exit 1 else ()
17 let _ =
18 let fn = Sys.argv.(1) in
19 let m = Llvm.create_module context "ocaml_test_module" in
27 let mb = Llvm.MemoryBuffer.of_file fn in
29 let m = Llvm_bitreader.parse_bitcode context mb in
39 let mb = Llvm.MemoryBuffer.of_file (fn ^ ".bogus") in
48 let mb = Llvm.MemoryBuffer.of_file fn in
49 let m = begin tr
[all...] |
| ipo_opts.ml | 17 let context = global_context ()
18 let void_type = Llvm.void_type context
19 let i8_type = Llvm.i8_type context
22 let print_checkpoints = false
24 let suite name f =
32 let filename = Sys.argv.(1)
33 let m = create_module context filename
38 let test_transforms () =
39 let (++) x f = ignore (f x); x in
41 let fty = function_type i8_type [| |] i
[all...] |
| vmcore.ml | 22 let exit_status = ref 0
23 let suite_name = ref ""
24 let group_name = ref ""
25 let case_num = ref 0
26 let print_checkpoints = false
27 let context = global_context ()
28 let i1_type = Llvm.i1_type context
29 let i8_type = Llvm.i8_type context
30 let i16_type = Llvm.i16_type context
31 let i32_type = Llvm.i32_type contex
[all...] |
| target.ml | 17 let _ = Llvm_executionengine.initialize_native_target ()
19 let context = global_context ()
20 let i32_type = Llvm.i32_type context
21 let i64_type = Llvm.i64_type context
24 let print_checkpoints = false
26 let _ =
29 let assert_equal a b =
35 let filename = Sys.argv.(1)
36 let m = create_module context filename
38 let target = Target.by_triple (Target.default_triple ()
[all...] |
| linker.ml | 16 let context = global_context ()
17 let void_type = Llvm.void_type context
20 let print_checkpoints = false
22 let suite name f =
30 let test_linker () =
31 let fty = function_type void_type [| |] in
33 let make_module name =
34 let m = create_module context name in
35 let fn = define_function ("fn_" ^ name) fty m in
40 let m1 = make_module "one
[all...] |
| scalar_opts.ml | 17 let context = global_context ()
18 let void_type = Llvm.void_type context
21 let print_checkpoints = false
23 let suite name f =
31 let filename = Sys.argv.(1)
32 let m = create_module context filename
37 let test_transforms () =
38 let (++) x f = ignore (f x); x in
40 let fty = function_type void_type [| |] in
41 let fn = define_function "fn" fty m i
[all...] |
| /external/chromium_org/v8/test/mjsunit/harmony/ |
| block-let-semantics.js | 32 // Test temporal dead zone semantics of let bound variables in
62 TestAll('let x = x + 1');
63 TestAll('let x = x += 1');
64 TestAll('let x = x++');
65 TestAll('let x = ++x');
69 TestAll('x + 1; let x;');
70 TestAll('x = 1; let x;');
71 TestAll('x += 1; let x;');
72 TestAll('++x; let x;');
73 TestAll('x++; let x;')
[all...] |
| block-for.js | 34 for (let p in x) array.push(p);
56 let i = "outer_i";
57 let s = "outer_s";
58 for (let i = 0x0020; i < 0x01ff; i+=2) {
59 let s = 'char:' + String.fromCharCode(i);
77 for (let p in {a : [0], b : 1}) { result += p; }
81 for (let p in {a : {v:1}, b : 1}) { result += p; }
85 for (let p in { get a() {}, b : 1}) { result += p; }
89 for (let p in { get a() {}, set a(x) {}, b : 1}) { result += p; }
94 // in a for-in statement with let variables
[all...] |
| block-let-crankshaft.js | 54 let x;
63 let x = 1;
75 let x;
90 let x;
104 let x;
115 let x = 1;
130 let x;
148 let x;
160 let x = 1;
162 let x = 2
[all...] |
| block-scoping.js | 50 let y = one + 2;
53 let z = one + 3;
69 let y = one + 2;
72 let z = one + 3;
92 let y = one + 2;
95 let z = one + 3;
113 let y = one + 2;
116 let z = one + 3;
133 let x = 1;
136 let y = 2
[all...] |
| /external/llvm/examples/OCaml-Kaleidoscope/Chapter4/ |
| codegen.ml | 9 let context = global_context ()
10 let the_module = create_module context "my cool jit"
11 let builder = builder context
12 let named_values:(string, llvalue) Hashtbl.t = Hashtbl.create 10
13 let double_type = double_type context
15 let rec codegen_expr = function
21 let lhs_val = codegen_expr lhs in
22 let rhs_val = codegen_expr rhs in
30 let i = build_fcmp Fcmp.Ult lhs_val rhs_val "cmptmp" builder in
36 let callee
[all...] |
| toplevel.ml | 9 let rec main_loop the_fpm the_execution_engine stream =
22 let e = Parser.parse_definition stream in
26 let e = Parser.parse_extern stream in
31 let e = Parser.parse_toplevel stream in
33 let the_function = Codegen.codegen_func the_fpm e in
37 let result = ExecutionEngine.run_function the_function [||]
|
| /external/llvm/examples/OCaml-Kaleidoscope/Chapter5/ |
| codegen.ml | 9 let context = global_context ()
10 let the_module = create_module context "my cool jit"
11 let builder = builder context
12 let named_values:(string, llvalue) Hashtbl.t = Hashtbl.create 10
13 let double_type = double_type context
15 let rec codegen_expr = function
21 let lhs_val = codegen_expr lhs in
22 let rhs_val = codegen_expr rhs in
30 let i = build_fcmp Fcmp.Ult lhs_val rhs_val "cmptmp" builder in
36 let callee
[all...] |
| toplevel.ml | 9 let rec main_loop the_fpm the_execution_engine stream =
22 let e = Parser.parse_definition stream in
26 let e = Parser.parse_extern stream in
31 let e = Parser.parse_toplevel stream in
33 let the_function = Codegen.codegen_func the_fpm e in
37 let result = ExecutionEngine.run_function the_function [||]
|
| /external/llvm/examples/OCaml-Kaleidoscope/Chapter3/ |
| codegen.ml | 9 let context = global_context ()
10 let the_module = create_module context "my cool jit"
11 let builder = builder context
12 let named_values:(string, llvalue) Hashtbl.t = Hashtbl.create 10
13 let double_type = double_type context
15 let rec codegen_expr = function
21 let lhs_val = codegen_expr lhs in
22 let rhs_val = codegen_expr rhs in
30 let i = build_fcmp Fcmp.Ult lhs_val rhs_val "cmptmp" builder in
36 let callee
[all...] |
| /external/llvm/examples/OCaml-Kaleidoscope/Chapter6/ |
| codegen.ml | 9 let context = global_context ()
10 let the_module = create_module context "my cool jit"
11 let builder = builder context
12 let named_values:(string, llvalue) Hashtbl.t = Hashtbl.create 10
13 let double_type = double_type context
15 let rec codegen_expr = function
21 let operand = codegen_expr operand in
22 let callee = "unary" ^ (String.make 1 op) in
23 let callee =
30 let lhs_val = codegen_expr lhs i
[all...] |
| toplevel.ml | 9 let rec main_loop the_fpm the_execution_engine stream =
22 let e = Parser.parse_definition stream in
26 let e = Parser.parse_extern stream in
31 let e = Parser.parse_toplevel stream in
33 let the_function = Codegen.codegen_func the_fpm e in
37 let result = ExecutionEngine.run_function the_function [||]
|
| /external/llvm/examples/OCaml-Kaleidoscope/Chapter7/ |
| codegen.ml | 9 let context = global_context ()
10 let the_module = create_module context "my cool jit"
11 let builder = builder context
12 let named_values:(string, llvalue) Hashtbl.t = Hashtbl.create 10
13 let double_type = double_type context
17 let create_entry_block_alloca the_function var_name =
18 let builder = builder_at context (instr_begin (entry_block the_function)) in
21 let rec codegen_expr = function
24 let v = try Hashtbl.find named_values name with
30 let operand = codegen_expr operand i
[all...] |
| toplevel.ml | 9 let rec main_loop the_fpm the_execution_engine stream =
22 let e = Parser.parse_definition stream in
26 let e = Parser.parse_extern stream in
31 let e = Parser.parse_toplevel stream in
33 let the_function = Codegen.codegen_func the_fpm e in
37 let result = ExecutionEngine.run_function the_function [||]
|
| /external/llvm/examples/OCaml-Kaleidoscope/Chapter2/ |
| parser.ml | 7 let binop_precedence:(char, int) Hashtbl.t = Hashtbl.create 10
10 let precedence c = try Hashtbl.find binop_precedence c with Not_found -> -1
16 let rec parse_primary = parser
27 let rec parse_args accumulator = parser
35 let rec parse_ident id = parser
55 let token_prec = precedence c in
64 let rhs = parse_primary stream in
67 let rhs =
71 * rhs, let the pending operator take rhs as its lhs. *)
72 let next_prec = precedence c2 i
[all...] |
