rustc: Run the verifier over LLVM modules before writing them out

This commit is contained in:
Patrick Walton
2010-12-06 17:17:49 -08:00
parent a1c7d19836
commit 3f9d5dab5b
2 changed files with 35 additions and 1 deletions

View File

@@ -687,6 +687,16 @@ native mod llvm = llvm_lib {
fn LLVMPreferredAlignmentOfType(TargetDataRef TD, TypeRef Ty) -> uint;
/** Disposes target data. */
fn LLVMDisposeTargetData(TargetDataRef TD);
/** Creates a pass manager. */
fn LLVMCreatePassManager() -> PassManagerRef;
/** Disposes a pass manager. */
fn LLVMDisposePassManager(PassManagerRef PM);
/** Runs a pass manager on a module. */
fn LLVMRunPassManager(PassManagerRef PM, ModuleRef M) -> Bool;
/** Adds a verification pass. */
fn LLVMAddVerifierPass(PassManagerRef PM);
}
/* Slightly more terse object-interface to LLVM's 'builder' functions. */
@@ -1209,6 +1219,19 @@ fn mk_target_data(str string_rep) -> target_data {
ret rec(lltd=lltd, dtor=target_data_dtor(lltd));
}
/* Memory-managed interface to pass managers. */
obj pass_manager_dtor(PassManagerRef PM) {
drop { llvm.LLVMDisposePassManager(PM); }
}
type pass_manager = rec(PassManagerRef llpm, pass_manager_dtor dtor);
fn mk_pass_manager() -> pass_manager {
auto llpm = llvm.LLVMCreatePassManager();
ret rec(llpm=llpm, dtor=pass_manager_dtor(llpm));
}
//
// Local Variables: