Add a wrapper for llvm::Function's deleteBody.

Author: maleadt

deps/LLVMExtra/include/LLVMExtra.h

@@ -131,5 +131,7 @@ void LLVMCloneFunctionInto(LLVMValueRef NewFunc, LLVMValueRef OldFunc,
                            LLVMValueRef (*Materializer)(LLVMValueRef, void *),
                            void *MaterializerData);
 
+void LLVMFunctionDeleteBody(LLVMValueRef Func);
+
 LLVM_C_EXTERN_C_END
 #endif

deps/LLVMExtra/lib/llvm-api.cpp

@@ -414,3 +414,7 @@ void LLVMCloneFunctionInto(LLVMValueRef NewFunc, LLVMValueRef OldFunc,
                     TypeMapper ? &TheTypeRemapper : nullptr,
                     Materializer ? &TheMaterializer : nullptr);
 }
+
+void LLVMFunctionDeleteBody(LLVMValueRef Func) {
+    unwrap<Function>(Func)->deleteBody();
+}

lib/libLLVM_extra.jl

@@ -334,3 +334,7 @@ end
 function LLVMCloneFunctionInto(NewFunc, OldFunc, ValueMap, ValueMapElements, Changes, NameSuffix, TypeMapper, TypeMapperData, Materializer, MaterializerData)
     ccall((:LLVMCloneFunctionInto, libLLVMExtra), Cvoid, (LLVMValueRef, LLVMValueRef, Ptr{LLVMValueRef}, Cuint, LLVMCloneFunctionChangeType, Cstring, Ptr{Cvoid}, Ptr{Cvoid}, Ptr{Cvoid}, Ptr{Cvoid}), NewFunc, OldFunc, ValueMap, ValueMapElements, Changes, NameSuffix, TypeMapper, TypeMapperData, Materializer, MaterializerData)
 end
+
+function LLVMFunctionDeleteBody(Func)
+    ccall((:LLVMFunctionDeleteBody, libLLVMExtra), Cvoid, (LLVMValueRef,), Func)
+end

src/core/function.jl

@@ -10,6 +10,8 @@ identify(::Type{Value}, ::Val{API.LLVMFunctionValueKind}) = Function
 Function(mod::Module, name::String, ft::FunctionType) =
     Function(API.LLVMAddFunction(mod, name, ft))
 
+Base.empty!(f::Function) = API.LLVMFunctionDeleteBody(f)
+
 unsafe_delete!(::Module, f::Function) = API.LLVMDeleteFunction(f)
 
 function personality(f::Function)

test/core.jl

@@ -1018,6 +1018,9 @@ LLVM.Module("SomeModule"; ctx) do mod
 
         @test collect(bbs) == [entrybb]
     end
+
+    empty!(fn)
+    @test isempty(blocks(fn))
 end
 end