| /external/llvm/test/Bindings/Ocaml/ |
| H A D | 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...] |
| H A D | 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
[all...] |
| H A D | 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 = TargetData.create (target_triple m) in
37 let st
[all...] |
| H A D | 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 ft
[all...] |
| H A D | 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
[all...] |
| H A D | vmcore.ml | 16 let exit_status = ref 0
17 let suite_name = ref ""
18 let group_name = ref ""
19 let case_num = ref 0
20 let print_checkpoints = false
21 let context = global_context ()
22 let i1_type = Llvm.i1_type context
23 let i8_type = Llvm.i8_type context
24 let i16_type = Llvm.i16_type context
25 let i32_typ
[all...] |
| H A D | 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
|
| H A D | 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 _ =
|
| H A D | 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 f
[all...] |
| /external/llvm/examples/OCaml-Kaleidoscope/Chapter4/ |
| H A D | 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 calle
[all...] |
| H A D | 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 [||]
|
| H A D | 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_pre
[all...] |
| /external/llvm/examples/OCaml-Kaleidoscope/Chapter5/ |
| H A D | 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 calle
[all...] |
| H A D | 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 [||]
|
| H A D | 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
18 let rec parse_primary = parser
29 let rec parse_args accumulator = parser
37 let rec parse_ident id = parser
67 let step =
91 let token_prec = precedence c in
100 let rhs = parse_primary stream in
103 let rhs =
107 * rhs, let th
[all...] |
| /external/llvm/examples/OCaml-Kaleidoscope/Chapter3/ |
| H A D | 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 calle
[all...] |
| H A D | 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_pre
[all...] |
| H A D | toplevel.ml | 8 let rec main_loop stream =
21 let e = Parser.parse_definition stream in
25 let e = Parser.parse_extern stream in
30 let e = Parser.parse_toplevel stream in
|
| /external/llvm/examples/OCaml-Kaleidoscope/Chapter6/ |
| H A D | 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_va
[all...] |
| H A D | 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 [||]
|
| H A D | 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
18 let rec parse_primary = parser
29 let rec parse_args accumulator = parser
37 let rec parse_ident id = parser
67 let step =
102 let token_prec = precedence c in
111 let rhs = parse_unary stream in
114 let rhs =
118 * rhs, let th
[all...] |
| /external/llvm/examples/OCaml-Kaleidoscope/Chapter7/ |
| H A D | 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 operan
[all...] |
| H A D | 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/ |
| H A D | 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_pre
[all...] |
| H A D | toy.ml | 5 let main () =
15 let stream = Lexer.lex (Stream.of_channel stdin) in
|