Lines Matching refs:let
66 let c = 0
67 let fast = 8
68 let cold = 9
69 let x86_stdcall = 64
70 let x86_fastcall = 65
235 let _ = register_exns (IoError "")
343 let iter_uses f v =
344 let rec aux = function
352 let fold_left_uses f init v =
353 let rec aux init u =
360 let fold_right_uses f v init =
361 let rec aux u init =
542 let rec iter_global_range f i e =
550 let iter_globals f m =
553 let rec fold_left_global_range f init i e =
559 let fold_left_globals f init m =
562 let rec rev_iter_global_range f i e =
570 let rev_iter_globals f m =
573 let rec fold_right_global_range f i e init =
579 let fold_right_globals f m init =
609 let rec iter_function_range f i e =
617 let iter_functions f m =
620 let rec fold_left_function_range f init i e =
626 let fold_left_functions f init m =
629 let rec rev_iter_function_range f i e =
637 let rev_iter_functions f m =
640 let rec fold_right_function_range f i e init =
646 let fold_right_functions f m init =
655 let pack_attr (attr:Attribute.t) : int32 =
684 let unpack_attr (a : int32) : Attribute.t list =
685 let l = ref [] in
686 let check attr =
688 let checkattr attr =
709 let align = Int32.logand (Int32.shift_right_logical a 16) 31l in
717 let stackalign = Int32.logand (Int32.shift_right_logical a 26) 7l in
725 let add_function_attr llval attr =
728 let remove_function_attr llval attr =
731 let function_attr f = unpack_attr (llvm_function_attr f)
737 let param_attr p = unpack_attr (llvm_param_attr p)
744 let rec iter_param_range f i e =
752 let iter_params f fn =
755 let rec fold_left_param_range f init i e =
761 let fold_left_params f init fn =
764 let rec rev_iter_param_range f i e =
772 let rev_iter_params f fn =
775 let rec fold_right_param_range f init i e =
781 let fold_right_params f fn init =
789 let add_param_attr llval attr =
792 let remove_param_attr llval attr =
821 let rec iter_block_range f i e =
829 let iter_blocks f fn =
832 let rec fold_left_block_range f init i e =
838 let fold_left_blocks f init fn =
841 let rec rev_iter_block_range f i e =
849 let rev_iter_blocks f fn =
852 let rec fold_right_block_range f init i e =
858 let fold_right_blocks f fn init =
877 let rec iter_instrs_range f i e =
885 let iter_instrs f bb =
888 let rec fold_left_instrs_range f init i e =
894 let fold_left_instrs f init bb =
897 let rec rev_iter_instrs_range f i e =
905 let rev_iter_instrs f bb =
908 let rec fold_right_instr_range f i e init =
914 let fold_right_instrs f bb init =
929 let add_instruction_param_attr llval i attr =
932 let remove_instruction_param_attr llval i attr =
954 let builder_at context ip =
955 let b = builder context in
959 let builder_before context i = builder_at context (Before i)
960 let builder_at_end context bb = builder_at context (At_end bb)
962 let position_before i = position_builder (Before i)
963 let position_at_end bb = position_builder (At_end bb)
1195 let concat2 sep arr =
1196 let s = ref "" in
1205 let rec string_of_lltype ty =
1210 (let ety = element_type ty in
1218 let s = "{ " ^ (concat2 ", " (
