Mercurial > projects > ldc
view ir/irtypefunction.cpp @ 1581:f4421c81398f
Fixed ticket #365. Thanks wilkie.
author | Robert Clipsham <robert@octarineparrot.com> |
---|---|
date | Sat, 19 Sep 2009 00:44:35 +0100 |
parents | 8d086d552909 |
children |
line wrap: on
line source
#include "llvm/DerivedTypes.h" #include "mtype.h" #include "gen/irstate.h" #include "gen/tollvm.h" #include "gen/functions.h" #include "ir/irtypefunction.h" IrTypeFunction::IrTypeFunction(Type * dt) : IrType(dt, llvm::OpaqueType::get(gIR->context())) { irfty = NULL; } const llvm::Type * IrTypeFunction::buildType() { const llvm::Type* T; TypeFunction* tf = (TypeFunction*)dtype; if (tf->funcdecl) T = DtoFunctionType(tf->funcdecl); else T = DtoFunctionType(tf,NULL,NULL); llvm::cast<llvm::OpaqueType>(pa.get())->refineAbstractTypeTo(T); return pa.get(); } ////////////////////////////////////////////////////////////////////////////// IrTypeDelegate::IrTypeDelegate(Type * dt) : IrType(dt, llvm::OpaqueType::get(gIR->context())) { } const llvm::Type * IrTypeDelegate::buildType() { assert(dtype->ty == Tdelegate); const LLType* i8ptr = getVoidPtrType(); const LLType* func = DtoFunctionType(dtype->nextOf(), NULL, Type::tvoid->pointerTo()); const LLType* funcptr = getPtrToType(func); const LLStructType* dgtype = LLStructType::get(gIR->context(), i8ptr, funcptr, NULL); gIR->module->addTypeName(dtype->toChars(), dgtype); llvm::cast<llvm::OpaqueType>(pa.get())->refineAbstractTypeTo(dgtype); return pa.get(); }