RV32IMACFDArchSpecificImp.cpp

Go to the documentation of this file.

 
#include <vector>
 
#include "RV32IMACFDArch.h"
#include "RV32IMACFDArchSpecificImp.h"
#include "RV32IMACFDFuncs.h"
#include "etiss/Memory.h"
 
etiss::int32 RV32IMACFDArch::handleException(etiss::int32 cause, ETISS_CPU *cpu)
{
    RV32IMACFD_translate_exc_code(cpu, nullptr, nullptr, cause);
    cpu->instructionPointer = cpu->nextPc;
    return 0;
}
 
static etiss::ModuleHandle GetCurrentModule()
{
    static etiss::ModuleHandle hModule = 0;
 
    if (!hModule)
    {
        hModule = etiss::GetModuleByAddress((uintptr_t)GetCurrentModule);
    }
 
    return hModule;
}
 
static std::string GetCurrentModulePath()
{
    static std::string modulePath;
 
    if (modulePath == "")
    {
        modulePath = etiss::GetModulePath(GetCurrentModule());
    }
 
    return modulePath;
}
 
std::string RV32IMACFDArch::installDir() const
{
    auto archLib = GetCurrentModulePath();
    auto libPathLoc = archLib.find_last_of("/\\");
    auto libPath = archLib.substr(0, libPathLoc);
    auto pluginsPathLoc = libPath.find_last_of("/\\");
    auto pluginsPath = libPath.substr(0, pluginsPathLoc);
    auto archPathLoc = pluginsPath.find_last_of("/\\");
    return libPath.substr(0, archPathLoc);
}
 
std::string RV32IMACFDArch::jitFiles() const
{
    return installDir() + "/include/jit";
}
 
void RV32IMACFDArch::initInstrSet(etiss::instr::ModedInstructionSet &mis) const
{
    {
        std::string requiredJitFilesPath = jitFiles();
        /* Set default JIT Extensions. Read Parameters set from ETISS configuration and append with architecturally needed */
        std::string cfgPar = "";
        cfgPar = etiss::cfg().get<std::string>("jit.external_headers", ";");
        etiss::cfg().set<std::string>("jit.external_headers", cfgPar + "etiss/jit/libsoftfloat.h");
 
        cfgPar = etiss::cfg().get<std::string>("jit.external_libs", ";");
        etiss::cfg().set<std::string>("jit.external_libs", cfgPar + "softfloat");
 
        cfgPar = etiss::cfg().get<std::string>("jit.external_header_paths", ";");
        etiss::cfg().set<std::string>("jit.external_header_paths", cfgPar + "etiss/jit" + requiredJitFilesPath);
 
        cfgPar = etiss::cfg().get<std::string>("jit.external_lib_paths", ";");
        etiss::cfg().set<std::string>("jit.external_lib_paths", cfgPar + "etiss/jit");
    }
 
    if (false) {
        // Pre-compilation of instruction set to view instruction tree. Enable by setting 'true' above.
 
        etiss::instr::ModedInstructionSet iset("RV32IMACFDISA");
        bool ok = true;
        RV32IMACFDISA.addTo(iset, ok);
 
        iset.compile();
 
        std::cout << iset.print() << std::endl;
    }
 
    bool ok = true;
    RV32IMACFDISA.addTo(mis, ok);
    if (!ok)
        etiss::log(etiss::FATALERROR, "Failed to add instructions for RV32IMACFDISA");
 
    etiss::instr::VariableInstructionSet *vis = mis.get(1);
 
    using namespace etiss;
    using namespace etiss::instr;
 
    vis->get(32)->getInvalid().addCallback(
        [] (BitArray & ba,etiss::CodeSet & cs,InstructionContext & ic)
        {
 
// -----------------------------------------------------------------------------
 
// -----------------------------------------------------------------------------
 
// -----------------------------------------------------------------------------
// NOLINTBEGIN(clang-diagnostic-unused-but-set-variable)
etiss_uint32 error_code = 0;
static BitArrayRange R_error_code_0(31, 0);
error_code += R_error_code_0.read(ba) << 0;
 
// NOLINTEND(clang-diagnostic-unused-but-set-variable)
// -----------------------------------------------------------------------------
 
        {
                CodePart & cp = cs.append(CodePart::INITIALREQUIRED);
 
                cp.code() = std::string("//trap_entry 32\n");
 
// -----------------------------------------------------------------------------
{ // procedure
cp.code() += "{ // procedure\n";
cp.code() += "RV32IMACFD_translate_exc_code(cpu, system, plugin_pointers, " + std::to_string(error_code) + "ULL);\n";
cp.code() += "goto instr_exit_" + std::to_string(ic.current_address_) + ";\n";
cp.code() += "} // procedure\n";
} // procedure
cp.code() += "instr_exit_" + std::to_string(ic.current_address_) + ":\n";
cp.code() += "cpu->instructionPointer = cpu->nextPc;\n";
// -----------------------------------------------------------------------------
                cp.getAffectedRegisters().add("instructionPointer", 32);
        }
        {
                CodePart & cp = cs.append(CodePart::APPENDEDRETURNINGREQUIRED);
 
                cp.code() = std::string("//trap_entry 32\n");
 
// -----------------------------------------------------------------------------
cp.code() += "return cpu->exception;\n";
// -----------------------------------------------------------------------------
        }
 
                return true;
        },
    0
    );
 
    vis->get(16)->getInvalid().addCallback(
        [] (BitArray & ba,etiss::CodeSet & cs,InstructionContext & ic)
        {
 
// -----------------------------------------------------------------------------
 
// -----------------------------------------------------------------------------
 
// -----------------------------------------------------------------------------
// NOLINTBEGIN(clang-diagnostic-unused-but-set-variable)
etiss_uint32 error_code = 0;
static BitArrayRange R_error_code_0(31, 0);
error_code += R_error_code_0.read(ba) << 0;
 
// NOLINTEND(clang-diagnostic-unused-but-set-variable)
// -----------------------------------------------------------------------------
 
        {
                CodePart & cp = cs.append(CodePart::INITIALREQUIRED);
 
                cp.code() = std::string("//trap_entry 16\n");
 
// -----------------------------------------------------------------------------
{ // procedure
cp.code() += "{ // procedure\n";
cp.code() += "RV32IMACFD_translate_exc_code(cpu, system, plugin_pointers, " + std::to_string(error_code) + "ULL);\n";
cp.code() += "goto instr_exit_" + std::to_string(ic.current_address_) + ";\n";
cp.code() += "} // procedure\n";
} // procedure
cp.code() += "instr_exit_" + std::to_string(ic.current_address_) + ":\n";
cp.code() += "cpu->instructionPointer = cpu->nextPc;\n";
// -----------------------------------------------------------------------------
                cp.getAffectedRegisters().add("instructionPointer", 32);
        }
        {
                CodePart & cp = cs.append(CodePart::APPENDEDRETURNINGREQUIRED);
 
                cp.code() = std::string("//trap_entry 16\n");
 
// -----------------------------------------------------------------------------
cp.code() += "return cpu->exception;\n";
// -----------------------------------------------------------------------------
        }
 
                return true;
        },
    0
    );
 
 
    vis->length_updater_ = [](VariableInstructionSet &, InstructionContext &ic, BitArray &ba) {
        std::function<void(InstructionContext & ic, etiss_uint32 opRd)> updateRV32IMACFDInstrLength =
            [](InstructionContext &ic, etiss_uint32 opRd) {
                ic.instr_width_fully_evaluated_ = true;
                ic.is_not_default_width_ = true;
                if (opRd == 0x3f)
                    ic.instr_width_ = 64;
                else if ((opRd & 0x3f) == 0x1f)
                    ic.instr_width_ = 48;
                else if (((opRd & 0x1f) >= 0x3) && ((opRd & 0x1f) < 0x1f))
                    ic.instr_width_ = 32;
                else if(opRd == 0x7f) /* P-Extension instructions */
                    ic.instr_width_ = 32;
                else if ((opRd & 0x3) != 0x3)
                    ic.instr_width_ = 16;
                else
                    // This might happen when code is followed by data.
                    ic.is_not_default_width_ = false;
            };
 
 
        BitArrayRange op(6, 0);
        etiss_uint32 opRd = op.read(ba);
 
        /*BitArrayRange fullOp(ba.byteCount()*8-1,0);
        etiss_uint32 fullOpRd = fullOp.read(ba);
 
        std::stringstream ss;
        ss << "Byte count: " << ba.byteCount()<< std::endl;
        ss << "opcode: 0x" <<std::hex<< fullOpRd << std::endl;
        ss << "Current PC: 0x" <<std::hex<< ic.current_address_ << std::endl;
        std::cout << ss.str() << std::endl;*/
 
        switch (ba.byteCount())
        {
        case 2:
            if (((opRd & 0x3) != 0x3) || (opRd == 0))
            {
                ic.is_not_default_width_ = false;
                break;
            }
            else
            {
                updateRV32IMACFDInstrLength(ic, opRd);
                break;
            }
        case 4:
            if ((((opRd & 0x1f) >= 0x3) || ((opRd & 0x1f) < 0x1f)) || (opRd == 0))
            {
                ic.is_not_default_width_ = false;
                break;
            }
            else if(opRd == 0x7f) /* P-Extension instructions */
            {
                updateRV32IMACFDInstrLength(ic, opRd);
                break;
            }
            else
            {
                updateRV32IMACFDInstrLength(ic, opRd);
                break;
            }
        case 6:
            if (((opRd & 0x3f) == 0x1f) || (opRd == 0))
            {
                ic.is_not_default_width_ = false;
                break;
            }
            else
            {
                updateRV32IMACFDInstrLength(ic, opRd);
                break;
            }
        case 8:
            if ((opRd == 0x3f) || (opRd == 0))
            {
                ic.is_not_default_width_ = false;
                break;
            }
            else
            {
                updateRV32IMACFDInstrLength(ic, opRd);
                break;
            }
        default:
            // This might happen when code is followed by data.
            ic.is_not_default_width_ = false;
        }
    };
 
}
 
void RV32IMACFDArch::compensateEndianess(ETISS_CPU *cpu, etiss::instr::BitArray &ba) const
{
    /**************************************************************************
     *                       Endianess compensation                           *
     **************************************************************************/
}
 
std::shared_ptr<etiss::VirtualStruct> RV32IMACFDArch::getVirtualStruct(ETISS_CPU *cpu)
{
    auto ret = etiss::VirtualStruct::allocate(cpu, [](etiss::VirtualStruct::Field *f) { delete f; });
 
    for (uint32_t i = 0; i < 32; i += 1)
    {
        ret->addField(new RegField_RV32IMACFD(*ret, i));
    }
    for (uint32_t i = 0; i < 32; i += 1)
    {
        ret->addField(new FloatRegField_RV32IMACFD(*ret, i));
    }
    for (uint32_t i = 1; i < 4; i += 1)
    {
        ret->addField(new CSRField_RV32IMACFD(*ret, i));
    }
    for (uint32_t i = 768; i < 775; i += 1)
    {
        ret->addField(new CSRField_RV32IMACFD(*ret, i));
    }
    for (uint32_t i = 832; i < 837; i += 1)
    {
        ret->addField(new CSRField_RV32IMACFD(*ret, i));
    }
    ret->addField(new CSRField_RV32IMACFD(*ret, 2816));
    ret->addField(new CSRField_RV32IMACFD(*ret, 2818));
    ret->addField(new CSRField_RV32IMACFD(*ret, 2944));
    ret->addField(new CSRField_RV32IMACFD(*ret, 2946));
    for (uint32_t i = 3072; i < 3075; i += 1)
    {
        ret->addField(new CSRField_RV32IMACFD(*ret, i));
    }
    for (uint32_t i = 3200; i < 3203; i += 1)
    {
        ret->addField(new CSRField_RV32IMACFD(*ret, i));
    }
    for (uint32_t i = 3857; i < 3861; i += 1)
    {
        ret->addField(new CSRField_RV32IMACFD(*ret, i));
    }
    ret->addField(new pcField_RV32IMACFD(*ret));
 
    return ret;
}
 
etiss::InterruptVector *RV32IMACFDArch::createInterruptVector(ETISS_CPU *cpu)
{
    if (cpu == 0)
        return 0;
 
    std::vector<etiss::uint32 *> vec;
    std::vector<etiss::uint32 *> mask;
 
    vec.push_back(&((RV32IMACFD *)cpu)->MIP);
    mask.push_back(&((RV32IMACFD *)cpu)->MIE);
 
    return new etiss::MappedInterruptVector<etiss::uint32>(vec, mask);
}
 
void RV32IMACFDArch::deleteInterruptVector(etiss::InterruptVector *vec, ETISS_CPU *cpu)
{
    delete vec;
}
 
etiss::InterruptEnable *RV32IMACFDArch::createInterruptEnable(ETISS_CPU *cpu)
{
    return new etiss::MappedInterruptEnable<etiss::uint32>(&((RV32IMACFD *)cpu)->MSTATUS, 15);
}
 
void RV32IMACFDArch::deleteInterruptEnable(etiss::InterruptEnable *en, ETISS_CPU *cpu)
{
    delete en;
}