Add GlobalValue type getter.

Author: maleadt

deps/LLVMExtra/include/LLVMExtra.h

@@ -84,6 +84,7 @@ void LLVMExtraGetNamedMetadataOperands2(LLVMNamedMDNodeRef NMD, LLVMMetadataRef
 void LLVMExtraAddNamedMetadataOperand2(LLVMNamedMDNodeRef NMD, LLVMMetadataRef Val);
 
 LLVMTypeRef LLVMGetFunctionType(LLVMValueRef Fn);
+LLVMTypeRef LLVMGetGlobalValueType(LLVMValueRef Fn);
 
 #if LLVM_VERSION_MAJOR >= 12
 void LLVMAddCFGSimplificationPass2(LLVMPassManagerRef PM,

deps/LLVMExtra/lib/llvm-api.cpp

@@ -567,8 +567,12 @@ LLVMValueRef LLVMConstDataArray(LLVMTypeRef ElementTy, const void *Data, unsigne
     return wrap(ConstantDataArray::getRaw(S, NumElements, unwrap(ElementTy)));
 }
 
-LLVMTypeRef  LLVMGetFunctionType(LLVMValueRef Fn) {
+LLVMTypeRef LLVMGetFunctionType(LLVMValueRef Fn) {
     auto Ftype = unwrap<Function>(Fn)->getFunctionType();
     return wrap(Ftype);
 }
 
+LLVMTypeRef LLVMGetGlobalValueType(LLVMValueRef GV) {
+    auto Ftype = unwrap<GlobalValue>(GV)->getValueType();
+    return wrap(Ftype);
+}

lib/libLLVM_extra.jl

@@ -425,6 +425,10 @@ function LLVMGetFunctionType(Fn)
     ccall((:LLVMGetFunctionType,libLLVMExtra), LLVMTypeRef, (LLVMValueRef,), Fn)
 end
 
+function LLVMGetGlobalValueType(Fn)
+    ccall((:LLVMGetGlobalValueType,libLLVMExtra), LLVMTypeRef, (LLVMValueRef,), Fn)
+end
+
 function LLVMGetBuilderContext(B)
     ccall((:LLVMGetBuilderContext, libLLVMExtra), LLVMContextRef, (LLVMBuilderRef,), B)
 end

src/core/value/constant.jl

@@ -579,7 +579,7 @@ InlineAsm(typ::FunctionType, asm::String, constraints::String,
 
 abstract type GlobalValue <: Constant end
 
-export GlobalValue,
+export GlobalValue, global_value_type,
        isdeclaration,
        linkage, linkage!,
        section, section!,
@@ -590,6 +590,8 @@ export GlobalValue,
 
 parent(val::GlobalValue) = Module(API.LLVMGetGlobalParent(val))
 
+global_value_type(val::GlobalValue) = LLVMType(API.LLVMGetGlobalValueType(val))
+
 isdeclaration(val::GlobalValue) = convert(Core.Bool, API.LLVMIsDeclaration(val))
 
 linkage(val::GlobalValue) = API.LLVMGetLinkage(val)

src/interop/base.jl

@@ -109,7 +109,7 @@ function Base.convert(::Type{LLVMType}, typ::Type; ctx::Context,
         llvmtyp = let
             mod = parse(LLVM.Module, buf; ctx)
             gv = first(globals(mod))
-            eltype(value_type(gv))
+            global_value_type(gv)
         end
     end
 

test/core.jl

@@ -815,7 +815,10 @@ end
 @dispose ctx=Context() mod=LLVM.Module("SomeModule"; ctx) begin
     gv = GlobalVariable(mod, LLVM.Int32Type(ctx), "SomeGlobal", 1)
 
+    @test value_type(gv) isa LLVM.PointerType
     @test addrspace(value_type(gv)) == 1
+
+    @test global_value_type(gv) == LLVM.Int32Type(ctx)
 end
 
 end