Lines Matching refs:let
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 callee =
41 let params = params callee in
46 let args = Array.map codegen_expr args in
49 let codegen_proto = function
52 let doubles = Array.make (Array.length args) double_type in
53 let ft = function_type double_type doubles in
54 let f =
73 let n = args.(i) in
79 let codegen_func = function
82 let the_function = codegen_proto proto in
85 let bb = append_block context "entry" the_function in
89 let ret_val = codegen_expr body in
92 let _ = build_ret ret_val builder in
