Welcome to the NetCologne GmbH open source mirroring service!

This machine mirrors various open-source projects. 20 Gbit/s uplink.

If there are any issues or you want another project mirrored, please contact mirror-service -=AT=- netcologne DOT de !

lib/codegen/CommaRT.h

Go to the documentation of this file.

//===-- codegen/CommaRT.h ------------------------------------- -*- C++ -*-===//
//
// This file is distributed under the MIT license. See LICENSE.txt for details.
//
// Copyright (C) 2009-2010, Stephen Wilson
//
//===----------------------------------------------------------------------===//

#ifndef COMMA_CODEGEN_COMMART_HDR_GUARD
#define COMMA_CODEGEN_COMMART_HDR_GUARD

#include "comma/ast/AstBase.h"

#include "llvm/ADT/DenseMap.h"
#include "llvm/Support/IRBuilder.h"

namespace llvm {

class TargetData;

} // end llvm namespace;

namespace comma {

class CodeGen;
class DomainInfo;
class DomainInstance;
class SRFrame;

class CommaRT {

public:
    CommaRT(CodeGen &CG);

    ~CommaRT();

    CodeGen &getCodeGen() { return CG; }
    const CodeGen &getCodeGen() const { return CG; }

    enum TypeId {
        CRT_ITable,
        CRT_DomainInfo,
        CRT_DomainInstance,
        CRT_DomainCtor
    };

    template <TypeId F>
    struct TypeIdTraits {
        typedef const llvm::PointerType FieldType;
    };

    template <TypeId F>
    typename TypeIdTraits<F>::FieldType *getType() const;

    const std::string &getTypeName(TypeId id) const;

    llvm::GlobalVariable *registerCapsule(Domoid *domoid);

    llvm::Value *getDomain(llvm::IRBuilder<> &builder,
                           llvm::GlobalValue *capsuleInfo) const;

    llvm::Value *getDomain(llvm::IRBuilder<> &builder,
                           std::vector<llvm::Value*> &args) const;

    llvm::Value *getLocalCapsule(llvm::IRBuilder<> &builder,
                                 llvm::Value *percent, unsigned ID) const;

    llvm::Value *getCapsuleParameter(llvm::IRBuilder<> &builder,
                                     llvm::Value *instance,
                                     unsigned index) const;

    const DomainInfo *getDomainInfo() const { return DInfo; }
    const DomainInstance *getDomainInstance() const { return DInstance; }



    llvm::Constant *registerException(const ExceptionDecl *exception);

    void raise(SRFrame *frame, const ExceptionDecl *exception,
               llvm::Value *fileName, llvm::Value *lineNum,
               llvm::GlobalVariable *message = 0);

    void raise(SRFrame *frame, const ExceptionDecl *exception,
               llvm::Value *fileName, llvm::Value *lineNum,
               llvm::Value *message = 0, llvm::Value *length = 0);

    void reraise(SRFrame *frame, llvm::Value *exception);

    void raiseProgramError(SRFrame *frame,
                           llvm::Value *fileName, llvm::Value *lineNum,
                           llvm::GlobalVariable *message) const;

    void raiseConstraintError(SRFrame *frame,
                              llvm::Value *fileName, llvm::Value *lineNum,
                              llvm::GlobalVariable *message) const;

    void raiseAssertionError(SRFrame *frame,
                             llvm::Value *fileName, llvm::Value *lineNum,
                             llvm::Value *message, llvm::Value *length) const;

    void unhandledException(llvm::IRBuilder<> &builder,
                            llvm::Value *exception) const;

    llvm::Constant *getEHPersonality() const;


    llvm::Value *pow_i32_i32(llvm::IRBuilder<> &builder,
                             llvm::Value *x, llvm::Value *n) const;
    llvm::Value *pow_i64_i32(llvm::IRBuilder<> &builder,
                             llvm::Value *x, llvm::Value *n) const;





    void vstack_alloc(llvm::IRBuilder<> &builder, llvm::Value *size) const;

    void vstack_push(llvm::IRBuilder<> &builder,
                     llvm::Value *data, llvm::Value *size) const;

    void vstack_pop(llvm::IRBuilder<> &builder) const;

    llvm::Value *vstack(llvm::IRBuilder<> &builder,
                        const llvm::Type *ptrTy) const;


    llvm::Value *comma_alloc(llvm::IRBuilder<> &builder,
                             uint64_t size, unsigned alignment) const;

    llvm::Value *comma_alloc(llvm::IRBuilder<> &builder,
                             llvm::Value *size, unsigned alignment) const;


private:
    CodeGen &CG;

    // Names of the basic runtime types as they appear in llvm IR.
    std::string InvalidName;
    std::string ITableName;
    std::string DomainCtorName;

    DomainInfo *DInfo;
    const llvm::PointerType *DomainInfoPtrTy;

    DomainInstance *DInstance;
    const llvm::PointerType *DomainInstancePtrTy;

    const llvm::PointerType *ITablePtrTy;
    const llvm::PointerType *DomainCtorPtrTy;

    // Function declarations for the comma runtime functions.
    llvm::Function *getDomainFn;
    llvm::Function *EHPersonalityFn;
    llvm::Function *unhandledExceptionFn;
    llvm::Function *raiseStaticExceptionFn;
    llvm::Function *raiseUserExceptionFn;
    llvm::Function *reraiseExceptionFn;
    llvm::Function *pow_i32_i32_Fn;
    llvm::Function *pow_i64_i32_Fn;
    llvm::Function *vstack_alloc_Fn;
    llvm::Function *vstack_push_Fn;
    llvm::Function *vstack_pop_Fn;
    llvm::Function *alloc_Fn;

    // Runtime global variables.
    llvm::GlobalVariable *vstack_Var;

    // Mapping from user-defined exceptions to the llvm::GlobalVariable's that
    // contain their associated comma_exinfo objects.
    typedef llvm::DenseMap<const ExceptionDecl*,
                           llvm::GlobalVariable*> ExceptionMap;
    ExceptionMap registeredExceptions;

    // External globals representing the language defined exceptions.
    // Definitions of these globals are provided by libruntime.
    llvm::Constant *theProgramErrorExinfo;
    llvm::Constant *theConstraintErrorExinfo;
    llvm::Constant *theAssertErrorExinfo;

    const llvm::PointerType *getDomainCtorPtrTy();
    const llvm::PointerType *getITablePtrTy();

    // Methods which build the LLVM IR for the comma runtime functions.
    void defineGetDomain();
    void defineEHPersonality();
    void defineUnhandledException();
    void defineRaiseException();
    void defineExinfos();
    void define_pow_i32_i32();
    void define_pow_i64_i32();
    void define_vstack_alloc();
    void define_vstack_push();
    void define_vstack_pop();
    void define_vstack();
    void define_alloc();

    // Builds the llvm IR for the primitive types needed by the runtime system.
    void generateRuntimeTypes();

    // Builds the llvm IR declarations for the primitive functions provided by
    // the runtime library.
    void generateRuntimeFunctions();

    llvm::Constant *genExinfoInitializer(const ExceptionDecl *exception);

    llvm::Constant *checkAndConvertMessage(llvm::GlobalVariable *message) const;

    void raiseExinfo(SRFrame *frame, llvm::Value *exinfo,
                     llvm::Value *fileName, llvm::Value *lineNum,
                     llvm::GlobalVariable *message) const;

    void raiseExinfo(SRFrame *frame, llvm::Value *exinfo,
                     llvm::Value *fileName, llvm::Value *lineNum,
                     llvm::Value *message, llvm::Value *length) const;
};

template <> inline
CommaRT::TypeIdTraits<CommaRT::CRT_ITable>::FieldType *
CommaRT::getType<CommaRT::CRT_ITable>() const {
    return ITablePtrTy;
}

template <> inline
CommaRT::TypeIdTraits<CommaRT::CRT_DomainInfo>::FieldType *
CommaRT::getType<CommaRT::CRT_DomainInfo>() const {
    return DomainInfoPtrTy;
}

template <> inline
CommaRT::TypeIdTraits<CommaRT::CRT_DomainInstance>::FieldType *
CommaRT::getType<CommaRT::CRT_DomainInstance>() const {
    return DomainInstancePtrTy;
}

template <> inline
CommaRT::TypeIdTraits<CommaRT::CRT_DomainCtor>::FieldType *
CommaRT::getType<CommaRT::CRT_DomainCtor>() const {
    return DomainCtorPtrTy;
}

} // end comma namespace.

#endif

---