Lines Matching refs:let
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 _ =
38 let m = Llvm.create_module context "ocaml_test_module" in
41 let file_buf = read_file Sys.argv.(1) in
