mirror of
https://github.com/ldc-developers/ldc.git
synced 2025-04-29 06:30:39 +03:00
1095 lines
32 KiB
C++
1095 lines
32 KiB
C++
//===-- tollvm.cpp --------------------------------------------------------===//
|
||
//
|
||
// LDC – the LLVM D compiler
|
||
//
|
||
// This file is distributed under the BSD-style LDC license. See the LICENSE
|
||
// file for details.
|
||
//
|
||
//===----------------------------------------------------------------------===//
|
||
|
||
#include "gen/llvm.h"
|
||
|
||
#include "dsymbol.h"
|
||
#include "aggregate.h"
|
||
#include "declaration.h"
|
||
#include "init.h"
|
||
#include "id.h"
|
||
#include "module.h"
|
||
|
||
#include "gen/tollvm.h"
|
||
#include "gen/irstate.h"
|
||
#include "gen/logger.h"
|
||
#include "gen/runtime.h"
|
||
#include "gen/arrays.h"
|
||
#include "gen/dvalue.h"
|
||
#include "gen/functions.h"
|
||
#include "gen/structs.h"
|
||
#include "gen/classes.h"
|
||
#include "gen/typeinf.h"
|
||
#include "gen/complex.h"
|
||
#include "gen/llvmhelpers.h"
|
||
#include "gen/linkage.h"
|
||
#include "gen/pragma.h"
|
||
|
||
#include "ir/irtype.h"
|
||
#include "ir/irtypeclass.h"
|
||
#include "ir/irtypefunction.h"
|
||
|
||
bool DtoIsPassedByRef(Type* type)
|
||
{
|
||
Type* typ = type->toBasetype();
|
||
TY t = typ->ty;
|
||
return (t == Tstruct || t == Tsarray);
|
||
}
|
||
|
||
#if LDC_LLVM_VER >= 303
|
||
llvm::Attribute::AttrKind DtoShouldExtend(Type* type)
|
||
#elif LDC_LLVM_VER == 302
|
||
llvm::Attributes::AttrVal DtoShouldExtend(Type* type)
|
||
#else
|
||
llvm::Attributes DtoShouldExtend(Type* type)
|
||
#endif
|
||
{
|
||
type = type->toBasetype();
|
||
if (type->isintegral())
|
||
{
|
||
switch(type->ty)
|
||
{
|
||
case Tint8:
|
||
case Tint16:
|
||
#if LDC_LLVM_VER >= 303
|
||
return llvm::Attribute::SExt;
|
||
#elif LDC_LLVM_VER == 302
|
||
return llvm::Attributes::SExt;
|
||
#else
|
||
return llvm::Attribute::SExt;
|
||
#endif
|
||
|
||
case Tuns8:
|
||
case Tuns16:
|
||
#if LDC_LLVM_VER >= 303
|
||
return llvm::Attribute::ZExt;
|
||
#elif LDC_LLVM_VER == 302
|
||
return llvm::Attributes::ZExt;
|
||
#else
|
||
return llvm::Attribute::ZExt;
|
||
#endif
|
||
default:
|
||
// Do not extend.
|
||
break;
|
||
}
|
||
}
|
||
#if LDC_LLVM_VER >= 303
|
||
return llvm::Attribute::None;
|
||
#elif LDC_LLVM_VER == 302
|
||
return llvm::Attributes::None;
|
||
#else
|
||
return llvm::Attribute::None;
|
||
#endif
|
||
}
|
||
|
||
LLType* DtoType(Type* t)
|
||
{
|
||
t = stripModifiers( t );
|
||
|
||
if (t->irtype)
|
||
{
|
||
return t->irtype->getLLType();
|
||
}
|
||
|
||
IF_LOG Logger::println("Building type: %s", t->toChars());
|
||
LOG_SCOPE;
|
||
|
||
assert(t);
|
||
switch (t->ty)
|
||
{
|
||
// basic types
|
||
case Tvoid:
|
||
case Tint8:
|
||
case Tuns8:
|
||
case Tint16:
|
||
case Tuns16:
|
||
case Tint32:
|
||
case Tuns32:
|
||
case Tint64:
|
||
case Tuns64:
|
||
case Tfloat32:
|
||
case Tfloat64:
|
||
case Tfloat80:
|
||
case Timaginary32:
|
||
case Timaginary64:
|
||
case Timaginary80:
|
||
case Tcomplex32:
|
||
case Tcomplex64:
|
||
case Tcomplex80:
|
||
//case Tbit:
|
||
case Tbool:
|
||
case Tchar:
|
||
case Twchar:
|
||
case Tdchar:
|
||
{
|
||
return IrTypeBasic::get(t)->getLLType();
|
||
}
|
||
|
||
// pointers
|
||
case Tnull:
|
||
case Tpointer:
|
||
{
|
||
return IrTypePointer::get(t)->getLLType();
|
||
}
|
||
|
||
// arrays
|
||
case Tarray:
|
||
{
|
||
return IrTypeArray::get(t)->getLLType();
|
||
}
|
||
|
||
case Tsarray:
|
||
{
|
||
return IrTypeSArray::get(t)->getLLType();
|
||
}
|
||
|
||
// aggregates
|
||
case Tstruct:
|
||
{
|
||
TypeStruct* ts = static_cast<TypeStruct*>(t);
|
||
if (ts->sym->type->irtype)
|
||
{
|
||
// This should not happen, but the frontend seems to be buggy. Not
|
||
// sure if this is the best way to handle the situation, but we
|
||
// certainly don't want to override ts->sym->type->irtype.
|
||
IF_LOG Logger::cout() << "Struct with multiple Types detected: " <<
|
||
ts->toChars() << " (" << ts->sym->locToChars() << ")" << std::endl;
|
||
return ts->sym->type->irtype->getLLType();
|
||
}
|
||
return IrTypeStruct::get(ts->sym)->getLLType();
|
||
}
|
||
case Tclass:
|
||
{
|
||
TypeClass* tc = static_cast<TypeClass*>(t);
|
||
if (tc->sym->type->irtype)
|
||
{
|
||
// See Tstruct case.
|
||
IF_LOG Logger::cout() << "Class with multiple Types detected: " <<
|
||
tc->toChars() << " (" << tc->sym->locToChars() << ")" << std::endl;
|
||
return tc->sym->type->irtype->getLLType();
|
||
}
|
||
return IrTypeClass::get(tc->sym)->getLLType();
|
||
}
|
||
|
||
// functions
|
||
case Tfunction:
|
||
{
|
||
return IrTypeFunction::get(t)->getLLType();
|
||
}
|
||
|
||
// delegates
|
||
case Tdelegate:
|
||
{
|
||
return IrTypeDelegate::get(t)->getLLType();
|
||
}
|
||
|
||
// typedefs
|
||
// enum
|
||
|
||
// FIXME: maybe just call toBasetype first ?
|
||
case Ttypedef:
|
||
case Tenum:
|
||
{
|
||
Type* bt = t->toBasetype();
|
||
assert(bt);
|
||
return DtoType(bt);
|
||
}
|
||
|
||
// associative arrays
|
||
case Taarray:
|
||
return getVoidPtrType();
|
||
|
||
#if DMDV2
|
||
case Tvector:
|
||
{
|
||
return IrTypeVector::get(t)->getLLType();
|
||
}
|
||
#endif
|
||
|
||
/*
|
||
Not needed atm as VarDecls for tuples are rewritten as a string of
|
||
VarDecls for the fields (u -> _u_field_0, ...)
|
||
|
||
case Ttuple:
|
||
{
|
||
TypeTuple* ttupl = static_cast<TypeTuple*>(t);
|
||
return DtoStructTypeFromArguments(ttupl->arguments);
|
||
}
|
||
*/
|
||
|
||
default:
|
||
llvm_unreachable("Unknown class of D Type!");
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
/*
|
||
LLType* DtoStructTypeFromArguments(Arguments* arguments)
|
||
{
|
||
if (!arguments)
|
||
return LLType::getVoidTy(gIR->context());
|
||
|
||
std::vector<LLType*> types;
|
||
for (size_t i = 0; i < arguments->dim; i++)
|
||
{
|
||
Argument *arg = static_cast<Argument *>(arguments->data[i]);
|
||
assert(arg && arg->type);
|
||
|
||
types.push_back(DtoType(arg->type));
|
||
}
|
||
return LLStructType::get(types);
|
||
}
|
||
*/
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLType* DtoTypeNotVoid(Type* t)
|
||
{
|
||
LLType* lt = DtoType(t);
|
||
if (lt == LLType::getVoidTy(gIR->context()))
|
||
return LLType::getInt8Ty(gIR->context());
|
||
return lt;
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLValue* DtoDelegateEquals(TOK op, LLValue* lhs, LLValue* rhs)
|
||
{
|
||
Logger::println("Doing delegate equality");
|
||
llvm::Value *b1, *b2;
|
||
if (rhs == NULL)
|
||
{
|
||
rhs = LLConstant::getNullValue(lhs->getType());
|
||
}
|
||
|
||
LLValue* l = gIR->ir->CreateExtractValue(lhs, 0);
|
||
LLValue* r = gIR->ir->CreateExtractValue(rhs, 0);
|
||
b1 = gIR->ir->CreateICmp(llvm::ICmpInst::ICMP_EQ,l,r,"tmp");
|
||
|
||
l = gIR->ir->CreateExtractValue(lhs, 1);
|
||
r = gIR->ir->CreateExtractValue(rhs, 1);
|
||
b2 = gIR->ir->CreateICmp(llvm::ICmpInst::ICMP_EQ,l,r,"tmp");
|
||
|
||
LLValue* b = gIR->ir->CreateAnd(b1,b2,"tmp");
|
||
|
||
if (op == TOKnotequal || op == TOKnotidentity)
|
||
return gIR->ir->CreateNot(b,"tmp");
|
||
|
||
return b;
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLGlobalValue::LinkageTypes DtoLinkage(Dsymbol* sym)
|
||
{
|
||
const bool mustDefine = mustDefineSymbol(sym);
|
||
|
||
// global variable
|
||
if (VarDeclaration* vd = sym->isVarDeclaration())
|
||
{
|
||
if (mustDefine)
|
||
{
|
||
IF_LOG Logger::println("Variable %savailable externally: %s",
|
||
(vd->availableExternally ? "" : "not "), vd->toChars());
|
||
}
|
||
|
||
// generated by inlining semantics run
|
||
if (vd->availableExternally && mustDefine)
|
||
return llvm::GlobalValue::AvailableExternallyLinkage;
|
||
// template
|
||
if (needsTemplateLinkage(sym))
|
||
return templateLinkage;
|
||
// never use InternalLinkage for variables marked as "extern"
|
||
if (vd->storage_class & STCextern)
|
||
return llvm::GlobalValue::ExternalLinkage;
|
||
}
|
||
// function
|
||
else if (FuncDeclaration* fdecl = sym->isFuncDeclaration())
|
||
{
|
||
if (mustDefine)
|
||
{
|
||
IF_LOG Logger::println("Function %savailable externally: %s",
|
||
(fdecl->availableExternally ? "" : "not "), fdecl->toChars());
|
||
}
|
||
|
||
assert(fdecl->type->ty == Tfunction);
|
||
TypeFunction* ft = static_cast<TypeFunction*>(fdecl->type);
|
||
|
||
// intrinsics are always external
|
||
if (fdecl->llvmInternal == LLVMintrinsic)
|
||
return llvm::GlobalValue::ExternalLinkage;
|
||
// generated by inlining semantics run
|
||
if (fdecl->availableExternally && mustDefine)
|
||
return llvm::GlobalValue::AvailableExternallyLinkage;
|
||
// array operations are always template linkage
|
||
if (fdecl->isArrayOp == 1)
|
||
return templateLinkage;
|
||
// template instances should have weak linkage
|
||
// but only if there's a body, and it's not naked
|
||
// otherwise we make it external
|
||
else if (needsTemplateLinkage(fdecl) && fdecl->fbody && !fdecl->naked)
|
||
return templateLinkage;
|
||
// extern(C) functions are always external
|
||
else if (ft->linkage == LINKc)
|
||
return llvm::GlobalValue::ExternalLinkage;
|
||
// If a function without a body is nested in another
|
||
// function, we cannot use internal linkage for that
|
||
// function (see below about nested functions)
|
||
// FIXME: maybe there is a better way without emission
|
||
// of needless symbols?
|
||
if (!fdecl->fbody)
|
||
return llvm::GlobalValue::ExternalLinkage;
|
||
}
|
||
// class
|
||
else if (ClassDeclaration* cd = sym->isClassDeclaration())
|
||
{
|
||
if (mustDefine)
|
||
{
|
||
IF_LOG Logger::println("Class %savailable externally: %s",
|
||
(cd->availableExternally ? "" : "not "), vd->toChars());
|
||
}
|
||
// generated by inlining semantics run
|
||
if (cd->availableExternally && mustDefine)
|
||
return llvm::GlobalValue::AvailableExternallyLinkage;
|
||
// template
|
||
if (needsTemplateLinkage(cd))
|
||
return templateLinkage;
|
||
}
|
||
else
|
||
{
|
||
llvm_unreachable("not global/function");
|
||
}
|
||
|
||
// If the function needs to be defined in the current module, check if it
|
||
// is a nested function and we can declare it as internal.
|
||
bool canInternalize = mustDefine;
|
||
|
||
// Nested naked functions and the implicitly generated __require/__ensure
|
||
// functions for in/out contracts cannot be internalized. The reason
|
||
// for the latter is that contract functions, despite being nested, can be
|
||
// referenced from other D modules e.g. in the case of contracts on
|
||
// interface methods (where __require/__ensure are emitted to the module
|
||
// where the interface is declared, but an actual interface implementation
|
||
// can be in a completely different place).
|
||
if (canInternalize)
|
||
{
|
||
if (FuncDeclaration* fd = sym->isFuncDeclaration())
|
||
{
|
||
if ((fd->naked != 0) ||
|
||
(fd->ident == Id::require) || (fd->ident == Id::ensure))
|
||
{
|
||
canInternalize = false;
|
||
}
|
||
}
|
||
}
|
||
|
||
// Any symbol nested in a function that cannot be inlined can't be
|
||
// referenced directly from outside that function, so we can give
|
||
// such symbols internal linkage. This holds even if nested indirectly,
|
||
// such as member functions of aggregates nested in functions.
|
||
//
|
||
// Note: This must be checked after things like template member-ness or
|
||
// symbols nested in templates would get duplicated for each module,
|
||
// breaking things like
|
||
// ---
|
||
// int counter(T)() { static int i; return i++; }"
|
||
// ---
|
||
// if instances get emitted in multiple object files because they'd use
|
||
// different instances of 'i'.
|
||
// TODO: Check if we are giving away too much inlining potential due to
|
||
// canInline being overly conservative here.
|
||
if (canInternalize)
|
||
{
|
||
for (Dsymbol* parent = sym->parent; parent ; parent = parent->parent)
|
||
{
|
||
FuncDeclaration *fd = parent->isFuncDeclaration();
|
||
if (fd && !fd->canInline(fd->needThis()))
|
||
{
|
||
// We also cannot internalize nested functions which are
|
||
// leaked to the outside via a templated return type, because
|
||
// that type will also be codegen'd in any caller modules (see
|
||
// GitHub issue #131).
|
||
// Since we can't easily determine if this is really the case
|
||
// here, just don't internalize it if the parent returns a
|
||
// template at all, to be safe.
|
||
TypeFunction* tf = static_cast<TypeFunction*>(fd->type);
|
||
if (!DtoIsTemplateInstance(tf->next->toDsymbol(fd->scope)))
|
||
return llvm::GlobalValue::InternalLinkage;
|
||
}
|
||
}
|
||
}
|
||
|
||
// default to external linkage
|
||
return llvm::GlobalValue::ExternalLinkage;
|
||
}
|
||
|
||
static bool isAvailableExternally(Dsymbol* sym)
|
||
{
|
||
if (VarDeclaration* vd = sym->isVarDeclaration())
|
||
return vd->availableExternally;
|
||
if (FuncDeclaration* fd = sym->isFuncDeclaration())
|
||
return fd->availableExternally;
|
||
if (AggregateDeclaration* ad = sym->isAggregateDeclaration())
|
||
return ad->availableExternally;
|
||
return false;
|
||
}
|
||
|
||
llvm::GlobalValue::LinkageTypes DtoInternalLinkage(Dsymbol* sym)
|
||
{
|
||
if (needsTemplateLinkage(sym)) {
|
||
if (isAvailableExternally(sym) && mustDefineSymbol(sym))
|
||
return llvm::GlobalValue::AvailableExternallyLinkage;
|
||
return templateLinkage;
|
||
}
|
||
else
|
||
return llvm::GlobalValue::InternalLinkage;
|
||
}
|
||
|
||
llvm::GlobalValue::LinkageTypes DtoExternalLinkage(Dsymbol* sym)
|
||
{
|
||
if (needsTemplateLinkage(sym))
|
||
return templateLinkage;
|
||
else if (isAvailableExternally(sym) && mustDefineSymbol(sym))
|
||
return llvm::GlobalValue::AvailableExternallyLinkage;
|
||
else
|
||
return llvm::GlobalValue::ExternalLinkage;
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLIntegerType* DtoSize_t()
|
||
{
|
||
// the type of size_t does not change once set
|
||
static LLIntegerType* t = NULL;
|
||
if (t == NULL)
|
||
t = (global.params.is64bit) ? LLType::getInt64Ty(gIR->context()) : LLType::getInt32Ty(gIR->context());
|
||
return t;
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLValue* DtoGEP1(LLValue* ptr, LLValue* i0, const char* var, llvm::BasicBlock* bb)
|
||
{
|
||
return llvm::GetElementPtrInst::Create(ptr, i0, var?var:"tmp", bb?bb:gIR->scopebb());
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLValue* DtoGEP(LLValue* ptr, LLValue* i0, LLValue* i1, const char* var, llvm::BasicBlock* bb)
|
||
{
|
||
LLValue* v[2] = { i0, i1 };
|
||
return llvm::GetElementPtrInst::Create(ptr, v, var?var:"tmp", bb?bb:gIR->scopebb());
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLValue* DtoGEPi1(LLValue* ptr, unsigned i, const char* var, llvm::BasicBlock* bb)
|
||
{
|
||
return llvm::GetElementPtrInst::Create(ptr, DtoConstUint(i), var?var:"tmp", bb?bb:gIR->scopebb());
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLValue* DtoGEPi(LLValue* ptr, unsigned i0, unsigned i1, const char* var, llvm::BasicBlock* bb)
|
||
{
|
||
LLValue* v[2] = { DtoConstUint(i0), DtoConstUint(i1) };
|
||
return llvm::GetElementPtrInst::Create(ptr, v, var?var:"tmp", bb?bb:gIR->scopebb());
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLConstant* DtoGEPi(LLConstant* ptr, unsigned i0, unsigned i1)
|
||
{
|
||
LLValue* v[2] = { DtoConstUint(i0), DtoConstUint(i1) };
|
||
return llvm::ConstantExpr::getGetElementPtr(ptr, v, true);
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
void DtoMemSet(LLValue* dst, LLValue* val, LLValue* nbytes)
|
||
{
|
||
LLType* VoidPtrTy = getVoidPtrType();
|
||
|
||
dst = DtoBitCast(dst, VoidPtrTy);
|
||
|
||
LLType* Tys[] = { VoidPtrTy, DtoSize_t() };
|
||
llvm::Function* fn = llvm::Intrinsic::getDeclaration(gIR->module,
|
||
llvm::Intrinsic::memset, Tys);
|
||
|
||
gIR->ir->CreateCall5(fn, dst, val, nbytes, DtoConstUint(1), DtoConstBool(false), "");
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
void DtoMemSetZero(LLValue* dst, LLValue* nbytes)
|
||
{
|
||
DtoMemSet(dst, DtoConstUbyte(0), nbytes);
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
void DtoMemCpy(LLValue* dst, LLValue* src, LLValue* nbytes, unsigned align)
|
||
{
|
||
LLType* VoidPtrTy = getVoidPtrType();
|
||
|
||
dst = DtoBitCast(dst, VoidPtrTy);
|
||
src = DtoBitCast(src, VoidPtrTy);
|
||
|
||
LLType* Tys[] ={ VoidPtrTy, VoidPtrTy, DtoSize_t() };
|
||
llvm::Function* fn = llvm::Intrinsic::getDeclaration(gIR->module,
|
||
llvm::Intrinsic::memcpy, Tys);
|
||
|
||
gIR->ir->CreateCall5(fn, dst, src, nbytes, DtoConstUint(align), DtoConstBool(false), "");
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLValue* DtoMemCmp(LLValue* lhs, LLValue* rhs, LLValue* nbytes)
|
||
{
|
||
// int memcmp ( const void * ptr1, const void * ptr2, size_t num );
|
||
|
||
LLType* VoidPtrTy = getVoidPtrType();
|
||
LLFunction* fn = gIR->module->getFunction("memcmp");
|
||
if (!fn)
|
||
{
|
||
LLType* Tys[] = { VoidPtrTy, VoidPtrTy, DtoSize_t() };
|
||
LLFunctionType* fty = LLFunctionType::get(LLType::getInt32Ty(gIR->context()),
|
||
Tys, false);
|
||
fn = LLFunction::Create(fty, LLGlobalValue::ExternalLinkage, "memcmp", gIR->module);
|
||
}
|
||
|
||
lhs = DtoBitCast(lhs, VoidPtrTy);
|
||
rhs = DtoBitCast(rhs, VoidPtrTy);
|
||
|
||
return gIR->ir->CreateCall3(fn, lhs, rhs, nbytes, "tmp");
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
void DtoAggrZeroInit(LLValue* v)
|
||
{
|
||
uint64_t n = getTypeStoreSize(v->getType()->getContainedType(0));
|
||
DtoMemSetZero(v, DtoConstSize_t(n));
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
void DtoAggrCopy(LLValue* dst, LLValue* src)
|
||
{
|
||
uint64_t n = getTypeStoreSize(dst->getType()->getContainedType(0));
|
||
DtoMemCpy(dst, src, DtoConstSize_t(n));
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
void DtoMemoryBarrier(bool ll, bool ls, bool sl, bool ss, bool device)
|
||
{
|
||
// FIXME: implement me
|
||
/*llvm::Function* fn = GET_INTRINSIC_DECL(memory_barrier);
|
||
assert(fn != NULL);
|
||
|
||
LLSmallVector<LLValue*, 5> llargs;
|
||
llargs.push_back(DtoConstBool(ll));
|
||
llargs.push_back(DtoConstBool(ls));
|
||
llargs.push_back(DtoConstBool(sl));
|
||
llargs.push_back(DtoConstBool(ss));
|
||
llargs.push_back(DtoConstBool(device));
|
||
|
||
llvm::CallInst::Create(fn, llargs, "", gIR->scopebb());*/
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
llvm::ConstantInt* DtoConstSize_t(uint64_t i)
|
||
{
|
||
return LLConstantInt::get(DtoSize_t(), i, false);
|
||
}
|
||
llvm::ConstantInt* DtoConstUint(unsigned i)
|
||
{
|
||
return LLConstantInt::get(LLType::getInt32Ty(gIR->context()), i, false);
|
||
}
|
||
llvm::ConstantInt* DtoConstInt(int i)
|
||
{
|
||
return LLConstantInt::get(LLType::getInt32Ty(gIR->context()), i, true);
|
||
}
|
||
LLConstant* DtoConstBool(bool b)
|
||
{
|
||
return LLConstantInt::get(LLType::getInt1Ty(gIR->context()), b, false);
|
||
}
|
||
llvm::ConstantInt* DtoConstUbyte(unsigned char i)
|
||
{
|
||
return LLConstantInt::get(LLType::getInt8Ty(gIR->context()), i, false);
|
||
}
|
||
|
||
LLConstant* DtoConstFP(Type* t, longdouble value)
|
||
{
|
||
LLType* llty = DtoType(t);
|
||
assert(llty->isFloatingPointTy());
|
||
|
||
if(llty == LLType::getFloatTy(gIR->context()) || llty == LLType::getDoubleTy(gIR->context()))
|
||
return LLConstantFP::get(llty, value);
|
||
else if(llty == LLType::getX86_FP80Ty(gIR->context())) {
|
||
uint64_t bits[] = {0, 0};
|
||
bits[0] = *reinterpret_cast<uint64_t*>(&value);
|
||
bits[1] = *reinterpret_cast<uint16_t*>(reinterpret_cast<uint64_t*>(&value) + 1);
|
||
#if LDC_LLVM_VER >= 303
|
||
return LLConstantFP::get(gIR->context(), APFloat(APFloat::x87DoubleExtended, APInt(80, 2, bits)));
|
||
#else
|
||
return LLConstantFP::get(gIR->context(), APFloat(APInt(80, 2, bits)));
|
||
#endif
|
||
} else if(llty == LLType::getPPC_FP128Ty(gIR->context())) {
|
||
uint64_t bits[] = {0, 0};
|
||
bits[0] = *reinterpret_cast<uint64_t*>(&value);
|
||
bits[1] = *reinterpret_cast<uint16_t*>(reinterpret_cast<uint64_t*>(&value) + 1);
|
||
#if LDC_LLVM_VER >= 303
|
||
return LLConstantFP::get(gIR->context(), APFloat(APFloat::PPCDoubleDouble, APInt(128, 2, bits)));
|
||
#else
|
||
return LLConstantFP::get(gIR->context(), APFloat(APInt(128, 2, bits)));
|
||
#endif
|
||
}
|
||
|
||
llvm_unreachable("Unknown floating point type encountered");
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLConstant* DtoConstString(const char* str)
|
||
{
|
||
llvm::StringRef s(str ? str : "");
|
||
#if LDC_LLVM_VER == 300
|
||
LLConstant* init = LLConstantArray::get(gIR->context(), s, true);
|
||
#else
|
||
LLConstant* init = llvm::ConstantDataArray::getString(gIR->context(), s, true);
|
||
#endif
|
||
llvm::GlobalVariable* gvar = new llvm::GlobalVariable(
|
||
*gIR->module, init->getType(), true, llvm::GlobalValue::InternalLinkage, init, ".str");
|
||
LLConstant* idxs[2] = { DtoConstUint(0), DtoConstUint(0) };
|
||
return DtoConstSlice(
|
||
DtoConstSize_t(s.size()),
|
||
llvm::ConstantExpr::getGetElementPtr(gvar, idxs, true),
|
||
Type::tchar->arrayOf()
|
||
);
|
||
}
|
||
|
||
LLConstant* DtoConstStringPtr(const char* str, const char* section)
|
||
{
|
||
llvm::StringRef s(str);
|
||
#if LDC_LLVM_VER == 300
|
||
LLConstant* init = LLConstantArray::get(gIR->context(), s, true);
|
||
#else
|
||
LLConstant* init = llvm::ConstantDataArray::getString(gIR->context(), s, true);
|
||
#endif
|
||
llvm::GlobalVariable* gvar = new llvm::GlobalVariable(
|
||
*gIR->module, init->getType(), true, llvm::GlobalValue::InternalLinkage, init, ".str");
|
||
if (section) gvar->setSection(section);
|
||
LLConstant* idxs[2] = { DtoConstUint(0), DtoConstUint(0) };
|
||
return llvm::ConstantExpr::getGetElementPtr(gvar, idxs, true);
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLValue* DtoLoad(LLValue* src, const char* name)
|
||
{
|
||
// if (Logger::enabled())
|
||
// Logger::cout() << "loading " << *src << '\n';
|
||
llvm::LoadInst* ld = gIR->ir->CreateLoad(src, name ? name : "tmp");
|
||
//ld->setVolatile(gIR->func()->inVolatile);
|
||
return ld;
|
||
}
|
||
|
||
// Like DtoLoad, but the pointer is guaranteed to be aligned appropriately for the type.
|
||
LLValue* DtoAlignedLoad(LLValue* src, const char* name)
|
||
{
|
||
llvm::LoadInst* ld = gIR->ir->CreateLoad(src, name ? name : "tmp");
|
||
ld->setAlignment(getABITypeAlign(ld->getType()));
|
||
return ld;
|
||
}
|
||
|
||
|
||
void DtoStore(LLValue* src, LLValue* dst)
|
||
{
|
||
// if (Logger::enabled())
|
||
// Logger::cout() << "storing " << *src << " into " << *dst << '\n';
|
||
gIR->ir->CreateStore(src,dst);
|
||
//st->setVolatile(gIR->func()->inVolatile);
|
||
}
|
||
|
||
// Like DtoStore, but the pointer is guaranteed to be aligned appropriately for the type.
|
||
void DtoAlignedStore(LLValue* src, LLValue* dst)
|
||
{
|
||
llvm::StoreInst* st = gIR->ir->CreateStore(src,dst);
|
||
st->setAlignment(getABITypeAlign(src->getType()));
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLValue* DtoBitCast(LLValue* v, LLType* t, const char* name)
|
||
{
|
||
if (v->getType() == t)
|
||
return v;
|
||
assert(!isaStruct(t));
|
||
return gIR->ir->CreateBitCast(v, t, name ? name : "tmp");
|
||
}
|
||
|
||
LLConstant* DtoBitCast(LLConstant* v, LLType* t)
|
||
{
|
||
if (v->getType() == t)
|
||
return v;
|
||
return llvm::ConstantExpr::getBitCast(v, t);
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLValue* DtoInsertValue(LLValue* aggr, LLValue* v, unsigned idx, const char* name)
|
||
{
|
||
return gIR->ir->CreateInsertValue(aggr, v, idx, name ? name : "tmp");
|
||
}
|
||
|
||
LLValue* DtoExtractValue(LLValue* aggr, unsigned idx, const char* name)
|
||
{
|
||
return gIR->ir->CreateExtractValue(aggr, idx, name ? name : "tmp");
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLValue* DtoInsertElement(LLValue* vec, LLValue* v, LLValue *idx, const char* name)
|
||
{
|
||
return gIR->ir->CreateInsertElement(vec, v, idx, name ? name : "tmp");
|
||
}
|
||
|
||
LLValue* DtoExtractElement(LLValue* vec, LLValue *idx, const char* name)
|
||
{
|
||
return gIR->ir->CreateExtractElement(vec, idx, name ? name : "tmp");
|
||
}
|
||
|
||
LLValue* DtoInsertElement(LLValue* vec, LLValue* v, unsigned idx, const char* name)
|
||
{
|
||
return DtoInsertElement(vec, v, DtoConstUint(idx), name);
|
||
}
|
||
|
||
LLValue* DtoExtractElement(LLValue* vec, unsigned idx, const char* name)
|
||
{
|
||
return DtoExtractElement(vec, DtoConstUint(idx), name);
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLPointerType* isaPointer(LLValue* v)
|
||
{
|
||
return llvm::dyn_cast<LLPointerType>(v->getType());
|
||
}
|
||
|
||
LLPointerType* isaPointer(LLType* t)
|
||
{
|
||
return llvm::dyn_cast<LLPointerType>(t);
|
||
}
|
||
|
||
LLArrayType* isaArray(LLValue* v)
|
||
{
|
||
return llvm::dyn_cast<LLArrayType>(v->getType());
|
||
}
|
||
|
||
LLArrayType* isaArray(LLType* t)
|
||
{
|
||
return llvm::dyn_cast<LLArrayType>(t);
|
||
}
|
||
|
||
LLStructType* isaStruct(LLValue* v)
|
||
{
|
||
return llvm::dyn_cast<LLStructType>(v->getType());
|
||
}
|
||
|
||
LLStructType* isaStruct(LLType* t)
|
||
{
|
||
return llvm::dyn_cast<LLStructType>(t);
|
||
}
|
||
|
||
LLFunctionType* isaFunction(LLValue* v)
|
||
{
|
||
return llvm::dyn_cast<LLFunctionType>(v->getType());
|
||
}
|
||
|
||
LLFunctionType* isaFunction(LLType* t)
|
||
{
|
||
return llvm::dyn_cast<LLFunctionType>(t);
|
||
}
|
||
|
||
LLConstant* isaConstant(LLValue* v)
|
||
{
|
||
return llvm::dyn_cast<llvm::Constant>(v);
|
||
}
|
||
|
||
llvm::ConstantInt* isaConstantInt(LLValue* v)
|
||
{
|
||
return llvm::dyn_cast<llvm::ConstantInt>(v);
|
||
}
|
||
|
||
llvm::Argument* isaArgument(LLValue* v)
|
||
{
|
||
return llvm::dyn_cast<llvm::Argument>(v);
|
||
}
|
||
|
||
llvm::GlobalVariable* isaGlobalVar(LLValue* v)
|
||
{
|
||
return llvm::dyn_cast<llvm::GlobalVariable>(v);
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLPointerType* getPtrToType(LLType* t)
|
||
{
|
||
if (t == LLType::getVoidTy(gIR->context()))
|
||
t = LLType::getInt8Ty(gIR->context());
|
||
return LLPointerType::get(t, 0);
|
||
}
|
||
|
||
LLPointerType* getVoidPtrType()
|
||
{
|
||
return getPtrToType(LLType::getInt8Ty(gIR->context()));
|
||
}
|
||
|
||
llvm::ConstantPointerNull* getNullPtr(LLType* t)
|
||
{
|
||
LLPointerType* pt = llvm::cast<LLPointerType>(t);
|
||
return llvm::ConstantPointerNull::get(pt);
|
||
}
|
||
|
||
LLConstant* getNullValue(LLType* t)
|
||
{
|
||
return LLConstant::getNullValue(t);
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
size_t getTypeBitSize(LLType* t)
|
||
{
|
||
return gDataLayout->getTypeSizeInBits(t);
|
||
}
|
||
|
||
size_t getTypeStoreSize(LLType* t)
|
||
{
|
||
return gDataLayout->getTypeStoreSize(t);
|
||
}
|
||
|
||
size_t getTypePaddedSize(LLType* t)
|
||
{
|
||
size_t sz = gDataLayout->getTypeAllocSize(t);
|
||
//Logger::cout() << "abi type size of: " << *t << " == " << sz << '\n';
|
||
return sz;
|
||
}
|
||
|
||
size_t getTypeAllocSize(LLType* t)
|
||
{
|
||
return gDataLayout->getTypeAllocSize(t);
|
||
}
|
||
|
||
unsigned char getABITypeAlign(LLType* t)
|
||
{
|
||
return gDataLayout->getABITypeAlignment(t);
|
||
}
|
||
|
||
unsigned char getPrefTypeAlign(LLType* t)
|
||
{
|
||
return gDataLayout->getPrefTypeAlignment(t);
|
||
}
|
||
|
||
LLType* getBiggestType(LLType** begin, size_t n)
|
||
{
|
||
LLType* bigTy = 0;
|
||
size_t bigSize = 0;
|
||
size_t bigAlign = 0;
|
||
|
||
LLType** end = begin+n;
|
||
while (begin != end)
|
||
{
|
||
LLType* T = *begin;
|
||
|
||
size_t sz = getTypePaddedSize(T);
|
||
size_t ali = getABITypeAlign(T);
|
||
if (sz > bigSize || (sz == bigSize && ali > bigAlign))
|
||
{
|
||
bigTy = T;
|
||
bigSize = sz;
|
||
bigAlign = ali;
|
||
}
|
||
|
||
++begin;
|
||
}
|
||
|
||
// will be null for n==0
|
||
return bigTy;
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLStructType* DtoInterfaceInfoType()
|
||
{
|
||
if (gIR->interfaceInfoType)
|
||
return gIR->interfaceInfoType;
|
||
|
||
// build interface info type
|
||
LLSmallVector<LLType*, 3> types;
|
||
// ClassInfo classinfo
|
||
ClassDeclaration* cd2 = ClassDeclaration::classinfo;
|
||
DtoResolveClass(cd2);
|
||
types.push_back(DtoType(cd2->type));
|
||
// void*[] vtbl
|
||
LLSmallVector<LLType*, 2> vtbltypes;
|
||
vtbltypes.push_back(DtoSize_t());
|
||
LLType* byteptrptrty = getPtrToType(getPtrToType(LLType::getInt8Ty(gIR->context())));
|
||
vtbltypes.push_back(byteptrptrty);
|
||
types.push_back(LLStructType::get(gIR->context(), vtbltypes));
|
||
// int offset
|
||
types.push_back(LLType::getInt32Ty(gIR->context()));
|
||
// create type
|
||
gIR->interfaceInfoType = LLStructType::get(gIR->context(), types);
|
||
|
||
return gIR->interfaceInfoType;
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLStructType* DtoMutexType()
|
||
{
|
||
if (gIR->mutexType)
|
||
return gIR->mutexType;
|
||
|
||
// The structures defined here must be the same as in druntime/src/rt/critical.c
|
||
|
||
// Windows
|
||
if (global.params.os == OSWindows)
|
||
{
|
||
llvm::Type *VoidPtrTy = llvm::Type::getInt8PtrTy(gIR->context());
|
||
llvm::Type *Int32Ty = llvm::Type::getInt32Ty(gIR->context());
|
||
|
||
// Build RTL_CRITICAL_SECTION; size is 24 (32bit) or 40 (64bit)
|
||
LLType *rtl_types[] = {
|
||
VoidPtrTy, // Pointer to DebugInfo
|
||
Int32Ty, // LockCount
|
||
Int32Ty, // RecursionCount
|
||
VoidPtrTy, // Handle of OwningThread
|
||
VoidPtrTy, // Handle of LockSemaphore
|
||
VoidPtrTy // SpinCount
|
||
};
|
||
LLStructType* rtl = LLStructType::create(gIR->context(), rtl_types, "RTL_CRITICAL_SECTION");
|
||
|
||
// Build D_CRITICAL_SECTION; size is 28 (32bit) or 48 (64bit)
|
||
LLStructType *mutex = LLStructType::create(gIR->context(), "D_CRITICAL_SECTION");
|
||
LLType *types[] = { getPtrToType(mutex), rtl };
|
||
mutex->setBody(types);
|
||
|
||
// Cache type
|
||
gIR->mutexType = mutex;
|
||
|
||
return mutex;
|
||
}
|
||
|
||
// FreeBSD
|
||
else if (global.params.os == OSFreeBSD) {
|
||
// Just a pointer
|
||
return LLStructType::get(gIR->context(), DtoSize_t());
|
||
}
|
||
|
||
// pthread_fastlock
|
||
LLType *types2[] = {
|
||
DtoSize_t(),
|
||
LLType::getInt32Ty(gIR->context())
|
||
};
|
||
LLStructType* fastlock = LLStructType::get(gIR->context(), types2, false);
|
||
|
||
// pthread_mutex
|
||
LLType *types1[] = {
|
||
LLType::getInt32Ty(gIR->context()),
|
||
LLType::getInt32Ty(gIR->context()),
|
||
getVoidPtrType(),
|
||
LLType::getInt32Ty(gIR->context()),
|
||
fastlock
|
||
};
|
||
LLStructType* pmutex = LLStructType::get(gIR->context(), types1, false);
|
||
|
||
// D_CRITICAL_SECTION
|
||
LLStructType* mutex = LLStructType::create(gIR->context(), "D_CRITICAL_SECTION");
|
||
LLType *types[] = { getPtrToType(mutex), pmutex };
|
||
mutex->setBody(types);
|
||
|
||
// Cache type
|
||
gIR->mutexType = mutex;
|
||
|
||
return pmutex;
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLStructType* DtoModuleReferenceType()
|
||
{
|
||
if (gIR->moduleRefType)
|
||
return gIR->moduleRefType;
|
||
|
||
// this is a recursive type so start out with a struct without body
|
||
LLStructType* st = LLStructType::create(gIR->context(), "ModuleReference");
|
||
|
||
// add members
|
||
LLType *types[] = {
|
||
getPtrToType(st),
|
||
#if DMDV1
|
||
DtoType(Module::moduleinfo->type)
|
||
#else
|
||
DtoType(Module::moduleinfo->type->pointerTo())
|
||
#endif
|
||
};
|
||
|
||
// resolve type
|
||
st->setBody(types);
|
||
|
||
// done
|
||
gIR->moduleRefType = st;
|
||
return st;
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
LLValue* DtoAggrPair(LLType* type, LLValue* V1, LLValue* V2, const char* name)
|
||
{
|
||
LLValue* res = llvm::UndefValue::get(type);
|
||
res = gIR->ir->CreateInsertValue(res, V1, 0, "tmp");
|
||
return gIR->ir->CreateInsertValue(res, V2, 1, name?name:"tmp");
|
||
}
|
||
|
||
LLValue* DtoAggrPair(LLValue* V1, LLValue* V2, const char* name)
|
||
{
|
||
LLType *types[] = { V1->getType(), V2->getType() };
|
||
LLType *t = LLStructType::get(gIR->context(), types, false);
|
||
return DtoAggrPair(t, V1, V2, name);
|
||
}
|
||
|
||
LLValue* DtoAggrPaint(LLValue* aggr, LLType* as)
|
||
{
|
||
if (aggr->getType() == as)
|
||
return aggr;
|
||
|
||
LLValue* res = llvm::UndefValue::get(as);
|
||
|
||
LLValue* V = gIR->ir->CreateExtractValue(aggr, 0, "tmp");;
|
||
V = DtoBitCast(V, as->getContainedType(0));
|
||
res = gIR->ir->CreateInsertValue(res, V, 0, "tmp");
|
||
|
||
V = gIR->ir->CreateExtractValue(aggr, 1, "tmp");;
|
||
V = DtoBitCast(V, as->getContainedType(1));
|
||
return gIR->ir->CreateInsertValue(res, V, 1, "tmp");
|
||
}
|
||
|
||
LLValue* DtoAggrPairSwap(LLValue* aggr)
|
||
{
|
||
Logger::println("swapping aggr pair");
|
||
LLValue* r = gIR->ir->CreateExtractValue(aggr, 0);
|
||
LLValue* i = gIR->ir->CreateExtractValue(aggr, 1);
|
||
return DtoAggrPair(i, r, "swapped");
|
||
}
|