Lines Matching refs:let
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 [| |] in
42 let fn = define_function "fn" fty m in
43 let fn2 = define_function "fn2" fty m in begin
45 let b = builder_at_end context (entry_block fn2) in
70 let _ =
