Debug info: Export subprogram getter and setter. (#472)

Author: maleadt

src/debuginfo.jl

@@ -161,14 +161,14 @@ register(DICompileUnit, API.LLVMDICompileUnitMetadataKind)
 
 ## other
 
-export DEBUG_METADATA_VERSION, strip_debuginfo!
+export DEBUG_METADATA_VERSION, strip_debuginfo!, subprogram, subprogram!
 
 DEBUG_METADATA_VERSION() = API.LLVMDebugMetadataVersion()
 
 strip_debuginfo!(mod::Module) = API.LLVMStripModuleDebugInfo(mod)
 
-function get_subprogram(func::Function)
+function subprogram(func::Function)
     ref = API.LLVMGetSubprogram(func)
     ref==C_NULL ? nothing : Metadata(ref)::DISubProgram
 end
-set_subprogram!(func::Function, sp::DISubProgram) = API.LLVMSetSubprogram(func, sp)
+subprogram!(func::Function, sp::DISubProgram) = API.LLVMSetSubprogram(func, sp)

src/deprecated.jl

@@ -41,3 +41,6 @@ function Base.show(io::IO, ::MIME"text/plain", md::MDString)
     str = @invoke string(md::Metadata)
     print(io, strip(str))
 end
+
+@deprecate get_subprogram(func::Function) subprogram(func) false
+@deprecate set_subprogram!(func::Function, sp::DISubProgram) subprogram!(func, sp) false

test/debuginfo_tests.jl

@@ -47,14 +47,14 @@ DEBUG_METADATA_VERSION()
 
     foo = functions(mod)["foo"]
 
-    let sp = LLVM.get_subprogram(foo)
+    let sp = subprogram(foo)
       @test sp !== nothing
       @test LLVM.line(sp) == 1
 
       bar = functions(mod)["bar"]
-      @test LLVM.get_subprogram(bar) === nothing
-      LLVM.set_subprogram!(bar, sp)
-      @test LLVM.get_subprogram(bar) == sp
+      @test subprogram(bar) === nothing
+      subprogram!(bar, sp)
+      @test subprogram(bar) == sp
     end
 
     bb = entry(foo)