| /external/llvm/test/Bindings/Ocaml/ |
| bitwriter.ml | 10 let context = Llvm.global_context ()
12 let test x = if not x then exit 1 else ()
14 let read_file name =
15 let ic = open_in_bin name in
16 let len = in_channel_length ic in
17 let buf = String.create len in
25 let temp_bitcode ?unbuffered m =
26 let temp_name, temp_oc = Filename.open_temp_file ~mode:[Open_binary] "" "" in
31 let temp_buf = read_file temp_name in
37 let _
[all...] |
| executionengine.ml | 13 let context = global_context ()
14 let i8_type = Llvm.i8_type context
15 let i32_type = Llvm.i32_type context
16 let i64_type = Llvm.i64_type context
17 let double_type = Llvm.double_type context
19 let bomb msg =
23 let define_main_fn m retval =
24 let fn =
25 let str_arr_type = pointer_type (pointer_type i8_type) in
29 let b = builder_at_end (global_context ()) (entry_block fn) i
[all...] |
| target.ml | 14 let context = global_context ()
15 let i32_type = Llvm.i32_type context
16 let i64_type = Llvm.i64_type context
19 let print_checkpoints = false
21 let suite name f =
29 let filename = Sys.argv.(1)
30 let m = create_module context filename
35 let test_target_data () =
36 let td = DataLayout.create (target_triple m) in
37 let sty = struct_type context [| i32_type; i64_type |] i
[all...] |
| ipo_opts.ml | 14 let context = global_context ()
15 let void_type = Llvm.void_type context
16 let i8_type = Llvm.i8_type context
19 let print_checkpoints = false
21 let suite name f =
29 let filename = Sys.argv.(1)
30 let m = create_module context filename
35 let test_transforms () =
36 let (++) x f = ignore (f x); x in
38 let fty = function_type i8_type [| |] i
[all...] |
| bitreader.ml | 10 let context = Llvm.global_context ()
12 let test x = if not x then exit 1 else ()
14 let _ =
15 let fn = Sys.argv.(1) in
16 let m = Llvm.create_module context "ocaml_test_module" in
24 let mb = Llvm.MemoryBuffer.of_file fn in
26 let m = Llvm_bitreader.parse_bitcode context mb in
36 let mb = Llvm.MemoryBuffer.of_file (fn ^ ".bogus") in
45 let mb = Llvm.MemoryBuffer.of_file fn in
46 let m = begin tr
[all...] |
| vmcore.ml | 19 let exit_status = ref 0
20 let suite_name = ref ""
21 let group_name = ref ""
22 let case_num = ref 0
23 let print_checkpoints = false
24 let context = global_context ()
25 let i1_type = Llvm.i1_type context
26 let i8_type = Llvm.i8_type context
27 let i16_type = Llvm.i16_type context
28 let i32_type = Llvm.i32_type contex
[all...] |
| analysis.ml | 12 let context = global_context ()
14 let test x = if not x then exit 1 else ()
16 let bomb msg =
20 let _ =
21 let fty = function_type (void_type context) [| |] in
22 let m = create_module context "valid_m" in
23 let fn = define_function "valid_fn" fty m in
24 let at_entry = builder_at_end context (entry_block fn) in
|
| ext_exc.ml | 5 let context = Llvm.global_context ()
7 * want the let _ bindings executed, see http://caml.inria.fr/mantis/view.php?id=4166 *)
8 let _ =
13 let _ =
|
| scalar_opts.ml | 14 let context = global_context ()
15 let void_type = Llvm.void_type context
18 let print_checkpoints = false
20 let suite name f =
28 let filename = Sys.argv.(1)
29 let m = create_module context filename
34 let test_transforms () =
35 let (++) x f = ignore (f x); x in
37 let fty = function_type void_type [| |] in
38 let fn = define_function "fn" fty m i
[all...] |
| /external/chromium_org/v8/test/mjsunit/harmony/ |
| block-let-semantics.js | 33 // Test temporal dead zone semantics of let bound variables in
63 TestAll('let x = x + 1');
64 TestAll('let x = x += 1');
65 TestAll('let x = x++');
66 TestAll('let x = ++x');
70 TestAll('x + 1; let x;');
71 TestAll('x = 1; let x;');
72 TestAll('x += 1; let x;');
73 TestAll('++x; let x;');
74 TestAll('x++; let x;')
[all...] |
| block-for.js | 35 for (let p in x) array.push(p);
57 let i = "outer_i";
58 let s = "outer_s";
59 for (let i = 0x0020; i < 0x01ff; i+=2) {
60 let s = 'char:' + String.fromCharCode(i);
78 for (let p in {a : [0], b : 1}) { result += p; }
82 for (let p in {a : {v:1}, b : 1}) { result += p; }
86 for (let p in { get a() {}, b : 1}) { result += p; }
90 for (let p in { get a() {}, set a(x) {}, b : 1}) { result += p; }
95 // in a for-in statement with let variables
[all...] |
| block-scoping.js | 49 let y = one + 2;
52 let z = one + 3;
68 let y = one + 2;
71 let z = one + 3;
88 let y = one + 2;
91 let z = one + 3;
109 let y = one + 2;
112 let z = one + 3;
129 let x = 1;
132 let y = 2
[all...] |
| /external/v8/test/mjsunit/harmony/ |
| block-let-semantics.js | 33 // Test temporal dead zone semantics of let bound variables in
63 TestAll('let x = x + 1');
64 TestAll('let x = x += 1');
65 TestAll('let x = x++');
66 TestAll('let x = ++x');
70 TestAll('x + 1; let x;');
71 TestAll('x = 1; let x;');
72 TestAll('x += 1; let x;');
73 TestAll('++x; let x;');
74 TestAll('x++; let x;')
[all...] |
| block-for.js | 35 for (let p in x) array.push(p);
57 let i = "outer_i";
58 let s = "outer_s";
59 for (let i = 0x0020; i < 0x01ff; i+=2) {
60 let s = 'char:' + String.fromCharCode(i);
78 for (let p in {a : [0], b : 1}) { result += p; }
82 for (let p in {a : {v:1}, b : 1}) { result += p; }
86 for (let p in { get a() {}, b : 1}) { result += p; }
90 for (let p in { get a() {}, set a(x) {}, b : 1}) { result += p; }
95 // in a for-in statement with let variables
[all...] |
| block-scoping.js | 49 let y = one + 2;
52 let z = one + 3;
68 let y = one + 2;
71 let z = one + 3;
88 let y = one + 2;
91 let z = one + 3;
109 let y = one + 2;
112 let z = one + 3;
129 let x = 1;
132 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...] |
