]>
git.proxmox.com Git - rustc.git/blob - src/llvm/bindings/ocaml/transforms/scalar_opts/scalar_opts_ocaml.c
1 /*===-- scalar_opts_ocaml.c - LLVM OCaml Glue -------------------*- C++ -*-===*\
3 |* The LLVM Compiler Infrastructure *|
5 |* This file is distributed under the University of Illinois Open Source *|
6 |* License. See LICENSE.TXT for details. *|
8 |*===----------------------------------------------------------------------===*|
10 |* This file glues LLVM's OCaml interface to its C interface. These functions *|
11 |* are by and large transparent wrappers to the corresponding C functions. *|
13 |* Note that these functions intentionally take liberties with the CAMLparamX *|
14 |* macros, since most of the parameters are not GC heap objects. *|
16 \*===----------------------------------------------------------------------===*/
18 #include "llvm-c/Transforms/Scalar.h"
19 #include "caml/mlvalues.h"
20 #include "caml/misc.h"
22 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
23 CAMLprim value
llvm_add_aggressive_dce(LLVMPassManagerRef PM
) {
24 LLVMAddAggressiveDCEPass(PM
);
28 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
29 CAMLprim value
llvm_add_alignment_from_assumptions(LLVMPassManagerRef PM
) {
30 LLVMAddAlignmentFromAssumptionsPass(PM
);
34 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
35 CAMLprim value
llvm_add_cfg_simplification(LLVMPassManagerRef PM
) {
36 LLVMAddCFGSimplificationPass(PM
);
40 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
41 CAMLprim value
llvm_add_dead_store_elimination(LLVMPassManagerRef PM
) {
42 LLVMAddDeadStoreEliminationPass(PM
);
46 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
47 CAMLprim value
llvm_add_scalarizer(LLVMPassManagerRef PM
) {
48 LLVMAddScalarizerPass(PM
);
52 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
53 CAMLprim value
llvm_add_merged_load_store_motion(LLVMPassManagerRef PM
) {
54 LLVMAddMergedLoadStoreMotionPass(PM
);
58 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
59 CAMLprim value
llvm_add_gvn(LLVMPassManagerRef PM
) {
64 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
65 CAMLprim value
llvm_add_ind_var_simplify(LLVMPassManagerRef PM
) {
66 LLVMAddIndVarSimplifyPass(PM
);
70 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
71 CAMLprim value
llvm_add_instruction_combining(LLVMPassManagerRef PM
) {
72 LLVMAddInstructionCombiningPass(PM
);
76 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
77 CAMLprim value
llvm_add_jump_threading(LLVMPassManagerRef PM
) {
78 LLVMAddJumpThreadingPass(PM
);
82 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
83 CAMLprim value
llvm_add_licm(LLVMPassManagerRef PM
) {
88 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
89 CAMLprim value
llvm_add_loop_deletion(LLVMPassManagerRef PM
) {
90 LLVMAddLoopDeletionPass(PM
);
94 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
95 CAMLprim value
llvm_add_loop_idiom(LLVMPassManagerRef PM
) {
96 LLVMAddLoopIdiomPass(PM
);
100 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
101 CAMLprim value
llvm_add_loop_rotate(LLVMPassManagerRef PM
) {
102 LLVMAddLoopRotatePass(PM
);
106 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
107 CAMLprim value
llvm_add_loop_reroll(LLVMPassManagerRef PM
) {
108 LLVMAddLoopRerollPass(PM
);
112 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
113 CAMLprim value
llvm_add_loop_unroll(LLVMPassManagerRef PM
) {
114 LLVMAddLoopUnrollPass(PM
);
118 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
119 CAMLprim value
llvm_add_loop_unswitch(LLVMPassManagerRef PM
) {
120 LLVMAddLoopUnswitchPass(PM
);
124 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
125 CAMLprim value
llvm_add_memcpy_opt(LLVMPassManagerRef PM
) {
126 LLVMAddMemCpyOptPass(PM
);
130 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
131 CAMLprim value
llvm_add_partially_inline_lib_calls(LLVMPassManagerRef PM
) {
132 LLVMAddPartiallyInlineLibCallsPass(PM
);
136 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
137 CAMLprim value
llvm_add_lower_switch(LLVMPassManagerRef PM
) {
138 LLVMAddLowerSwitchPass(PM
);
142 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
143 CAMLprim value
llvm_add_promote_memory_to_register(LLVMPassManagerRef PM
) {
144 LLVMAddPromoteMemoryToRegisterPass(PM
);
148 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
149 CAMLprim value
llvm_add_reassociation(LLVMPassManagerRef PM
) {
150 LLVMAddReassociatePass(PM
);
154 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
155 CAMLprim value
llvm_add_sccp(LLVMPassManagerRef PM
) {
160 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
161 CAMLprim value
llvm_add_scalar_repl_aggregates(LLVMPassManagerRef PM
) {
162 LLVMAddScalarReplAggregatesPass(PM
);
166 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
167 CAMLprim value
llvm_add_scalar_repl_aggregates_ssa(LLVMPassManagerRef PM
) {
168 LLVMAddScalarReplAggregatesPassSSA(PM
);
172 /* int -> [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
173 CAMLprim value
llvm_add_scalar_repl_aggregates_with_threshold(value threshold
,
174 LLVMPassManagerRef PM
) {
175 LLVMAddScalarReplAggregatesPassWithThreshold(PM
, Int_val(threshold
));
179 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
180 CAMLprim value
llvm_add_simplify_lib_calls(LLVMPassManagerRef PM
) {
181 LLVMAddSimplifyLibCallsPass(PM
);
185 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
186 CAMLprim value
llvm_add_tail_call_elimination(LLVMPassManagerRef PM
) {
187 LLVMAddTailCallEliminationPass(PM
);
191 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
192 CAMLprim value
llvm_add_constant_propagation(LLVMPassManagerRef PM
) {
193 LLVMAddConstantPropagationPass(PM
);
197 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
198 CAMLprim value
llvm_add_demote_memory_to_register(LLVMPassManagerRef PM
) {
199 LLVMAddDemoteMemoryToRegisterPass(PM
);
203 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
204 CAMLprim value
llvm_add_verifier(LLVMPassManagerRef PM
) {
205 LLVMAddVerifierPass(PM
);
209 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
210 CAMLprim value
llvm_add_correlated_value_propagation(LLVMPassManagerRef PM
) {
211 LLVMAddCorrelatedValuePropagationPass(PM
);
215 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
216 CAMLprim value
llvm_add_early_cse(LLVMPassManagerRef PM
) {
217 LLVMAddEarlyCSEPass(PM
);
221 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
222 CAMLprim value
llvm_add_lower_expect_intrinsic(LLVMPassManagerRef PM
) {
223 LLVMAddLowerExpectIntrinsicPass(PM
);
227 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
228 CAMLprim value
llvm_add_type_based_alias_analysis(LLVMPassManagerRef PM
) {
229 LLVMAddTypeBasedAliasAnalysisPass(PM
);
233 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
234 CAMLprim value
llvm_add_scoped_no_alias_aa(LLVMPassManagerRef PM
) {
235 LLVMAddScopedNoAliasAAPass(PM
);
239 /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
240 CAMLprim value
llvm_add_basic_alias_analysis(LLVMPassManagerRef PM
) {
241 LLVMAddBasicAliasAnalysisPass(PM
);