Lines Matching refs:let
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 ())
40 let machine = TargetMachine.create (Target.default_triple ()) target
44 let test_target_data () =
45 let module DL = DataLayout in
46 let layout = "e-p:32:32-f64:32:64-v64:32:64-v128:32:128-n32-S32" in
47 let dl = DL.of_string layout in
48 let sty = struct_type context [| i32_type; i64_type |] in
65 let pm = PassManager.create () in
71 let test_target () =
72 let module T = Target in
83 let test_target_machine () =
84 let module TM = TargetMachine in
95 let test_code_emission () =
104 let buf = TargetMachine.emit_to_memory_buffer m CodeGenFileType.ObjectFile
111 let _ =
