Lines Matching refs:let
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 in
54 let _ =
