llvmcalltest.cpp
// This file is a part of Julia. License is MIT: https://julialang.org/license
#include "../src/support/platform.h"
#include "../src/support/dtypes.h"
#include "llvm/Config/llvm-config.h"
#include "llvm/IR/IRBuilder.h"
#include "codegen_shared.h"
using namespace llvm;
extern "C" {
JL_DLLEXPORT llvm::Function *MakeIdentityFunction(llvm::PointerType *AnyTy) {
Type *TrackedTy = PointerType::get(AnyTy->getElementType(), AddressSpace::Tracked);
Module *M = new llvm::Module("shadow", AnyTy->getContext());
Function *F = Function::Create(
FunctionType::get(
TrackedTy, {TrackedTy}, false),
llvm::GlobalValue::ExternalLinkage,
"identity",
M
);
IRBuilder<> Builder(BasicBlock::Create(AnyTy->getContext(), "top", F));
Builder.CreateRet(&*F->arg_begin());
return F;
}
JL_DLLEXPORT llvm::Function *MakeLoadGlobalFunction(llvm::PointerType *AnyTy) {
auto M = new Module("shadow", AnyTy->getContext());
auto intType = Type::getInt32Ty(AnyTy->getContext());
auto G = new GlobalVariable(
*M,
intType,
true,
GlobalValue::InternalLinkage,
Constant::getNullValue(intType),
"test_global_var");
auto resultType = Type::getInt64Ty(AnyTy->getContext());
auto F = Function::Create(
FunctionType::get(resultType, {}, false),
GlobalValue::ExternalLinkage,
"load_global_var",
M);
IRBuilder<> Builder(BasicBlock::Create(AnyTy->getContext(), "top", F));
Builder.CreateRet(Builder.CreatePtrToInt(G, resultType));
return F;
}
}