Add called_type (#341)

Author: wsmoses

src/core/instructions.jl

@@ -148,7 +148,7 @@ const CallBase = Union{CallBrInst, CallInst, InvokeInst}
 
 export callconv, callconv!,
        istailcall, tailcall!,
-       called_value, arguments,
+       called_value, arguments, called_type,
        OperandBundleUse, OperandBundleDef, operand_bundles
 
 callconv(inst::CallBase) = API.LLVMGetInstructionCallConv(inst)
@@ -160,6 +160,14 @@ tailcall!(inst::CallBase, bool) = API.LLVMSetTailCall(inst, convert(Bool, bool))
 
 called_value(inst::CallBase) = Value(API.LLVMGetCalledValue(inst))
 
+function called_type(inst::CallBase)
+    @static if version() >= v"11"
+        LLVMType(API.LLVMGetCalledFunctionType(inst))
+    else
+        value_type(called_value(inst))
+    end
+end
+
 function arguments(inst::CallBase)
     nargs = API.LLVMGetNumArgOperands(inst)
     operands(inst)[1:nargs]

test/instructions.jl

@@ -321,6 +321,7 @@
 
     @check_ir callinst "call void @llvm.trap()"
     @test called_value(callinst) == trap
+    @test called_type(callinst) == LLVM.FunctionType(LLVM.VoidType(ctx))
 
     neginst = neg!(builder, int1)
     @check_ir neginst "sub i32 0, %0"