void
mono_llvm_di_builder_finalize (void *di_builder)
{
DIBuilder *builder = (DIBuilder*)di_builder;
builder->finalize ();
}
Module *llvm_compile_state::pop_module()
{
Module *returnValue = _moduleStack.back();
_moduleStack.pop_back();
DIBuilder *debugBuilder = pop_debug_builder();
debugBuilder->finalize(); // NOTE: top level is not popped at all.
// language.kite handles finalization.
delete debugBuilder;
return returnValue;
}
int
DisposeDebugBuilder(
ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *const objv[])
{
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "DIBuilder");
return TCL_ERROR;
}
DIBuilder *builder;
if (GetDIBuilderFromObj(interp, objv[1], builder) != TCL_OK)
return TCL_ERROR;
builder->finalize();
DeleteDIBuilder(builder);
return TCL_OK;
}
void finalize() {
if(DI) {
DI->finalize();
delete DI;
}
}