2014-03-09 14:40:04 -05:00
|
|
|
/*
|
|
|
|
* yosys -- Yosys Open SYnthesis Suite
|
|
|
|
*
|
|
|
|
* Copyright (C) 2012 Clifford Wolf <clifford@clifford.at>
|
|
|
|
*
|
|
|
|
* Permission to use, copy, modify, and/or distribute this software for any
|
|
|
|
* purpose with or without fee is hereby granted, provided that the above
|
|
|
|
* copyright notice and this permission notice appear in all copies.
|
|
|
|
*
|
|
|
|
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
|
|
|
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
|
|
|
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
|
|
|
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
|
|
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
|
|
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
|
|
|
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include "kernel/register.h"
|
|
|
|
#include "kernel/sigtools.h"
|
|
|
|
#include "kernel/log.h"
|
|
|
|
#include <unistd.h>
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <assert.h>
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <string.h>
|
|
|
|
#include <dirent.h>
|
|
|
|
|
2014-03-13 11:34:31 -05:00
|
|
|
#ifdef YOSYS_ENABLE_VERIFIC
|
2014-03-09 14:40:04 -05:00
|
|
|
|
|
|
|
#include "veri_file.h"
|
|
|
|
#include "vhdl_file.h"
|
|
|
|
#include "VeriWrite.h"
|
|
|
|
#include "DataBase.h"
|
|
|
|
#include "Message.h"
|
|
|
|
|
|
|
|
#ifdef VERIFIC_NAMESPACE
|
|
|
|
using namespace Verific ;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
static void msg_func(msg_type_t msg_type, const char *message_id, linefile_type linefile, const char *msg, va_list args)
|
|
|
|
{
|
|
|
|
log("VERIFIC-%s [%s] ",
|
|
|
|
msg_type == VERIFIC_NONE ? "NONE" :
|
|
|
|
msg_type == VERIFIC_ERROR ? "ERROR" :
|
|
|
|
msg_type == VERIFIC_WARNING ? "WARNING" :
|
|
|
|
msg_type == VERIFIC_IGNORE ? "IGNORE" :
|
|
|
|
msg_type == VERIFIC_INFO ? "INFO" :
|
|
|
|
msg_type == VERIFIC_COMMENT ? "COMMENT" :
|
|
|
|
msg_type == VERIFIC_PROGRAM_ERROR ? "PROGRAM_ERROR" : "UNKNOWN", message_id);
|
|
|
|
if (linefile)
|
|
|
|
log("%s:%d: ", LineFile::GetFileName(linefile), LineFile::GetLineNo(linefile));
|
|
|
|
logv(msg, args);
|
|
|
|
log("\n");
|
|
|
|
}
|
|
|
|
|
2014-03-10 06:06:57 -05:00
|
|
|
static void import_attributes(std::map<RTLIL::IdString, RTLIL::Const> &attributes, DesignObj *obj)
|
2014-03-09 14:40:04 -05:00
|
|
|
{
|
|
|
|
MapIter mi;
|
|
|
|
Att *attr;
|
|
|
|
|
|
|
|
if (obj->Linefile())
|
|
|
|
attributes["\\src"] = stringf("%s:%d", LineFile::GetFileName(obj->Linefile()), LineFile::GetLineNo(obj->Linefile()));
|
|
|
|
|
|
|
|
// FIXME: Parse numeric attributes
|
|
|
|
FOREACH_ATTRIBUTE(obj, mi, attr)
|
|
|
|
attributes[RTLIL::escape_id(attr->Key())] = RTLIL::Const(std::string(attr->Value()));
|
|
|
|
}
|
|
|
|
|
2014-03-10 06:06:57 -05:00
|
|
|
static RTLIL::SigSpec operatorInput(Instance *inst, std::map<Net*, RTLIL::SigBit> &net_map)
|
|
|
|
{
|
|
|
|
RTLIL::SigSpec sig;
|
|
|
|
for (unsigned i = 0; i < inst->InputSize(); i++)
|
|
|
|
if (inst->GetInputBit(i))
|
|
|
|
sig.append(net_map.at(inst->GetInputBit(i)));
|
|
|
|
else
|
|
|
|
sig.append(RTLIL::State::Sz);
|
|
|
|
sig.optimize();
|
|
|
|
return sig;
|
|
|
|
}
|
|
|
|
|
|
|
|
static RTLIL::SigSpec operatorInput1(Instance *inst, std::map<Net*, RTLIL::SigBit> &net_map)
|
|
|
|
{
|
|
|
|
RTLIL::SigSpec sig;
|
|
|
|
for (unsigned i = 0; i < inst->Input1Size(); i++)
|
|
|
|
if (inst->GetInput1Bit(i))
|
|
|
|
sig.append(net_map.at(inst->GetInput1Bit(i)));
|
|
|
|
else
|
|
|
|
sig.append(RTLIL::State::Sz);
|
|
|
|
sig.optimize();
|
|
|
|
return sig;
|
|
|
|
}
|
|
|
|
|
|
|
|
static RTLIL::SigSpec operatorInput2(Instance *inst, std::map<Net*, RTLIL::SigBit> &net_map)
|
|
|
|
{
|
|
|
|
RTLIL::SigSpec sig;
|
|
|
|
for (unsigned i = 0; i < inst->Input2Size(); i++)
|
|
|
|
if (inst->GetInput2Bit(i))
|
|
|
|
sig.append(net_map.at(inst->GetInput2Bit(i)));
|
|
|
|
else
|
|
|
|
sig.append(RTLIL::State::Sz);
|
|
|
|
sig.optimize();
|
|
|
|
return sig;
|
|
|
|
}
|
|
|
|
|
|
|
|
static RTLIL::SigSpec operatorOutput(Instance *inst, std::map<Net*, RTLIL::SigBit> &net_map, RTLIL::Module *module)
|
|
|
|
{
|
|
|
|
RTLIL::SigSpec sig;
|
|
|
|
RTLIL::Wire *dummy_wire = NULL;
|
|
|
|
for (unsigned i = 0; i < inst->OutputSize(); i++)
|
|
|
|
if (inst->GetInput2Bit(i)) {
|
|
|
|
sig.append(net_map.at(inst->GetInput2Bit(i)));
|
|
|
|
dummy_wire = NULL;
|
|
|
|
} else {
|
|
|
|
if (dummy_wire == NULL)
|
|
|
|
dummy_wire = module->new_wire(1, NEW_ID);
|
|
|
|
else
|
|
|
|
dummy_wire->width++;
|
|
|
|
sig.append(RTLIL::SigSpec(dummy_wire, 1, dummy_wire->width - 1));
|
|
|
|
}
|
|
|
|
sig.optimize();
|
|
|
|
return sig;
|
|
|
|
}
|
|
|
|
|
2014-03-09 14:40:04 -05:00
|
|
|
static void import_netlist(RTLIL::Design *design, Netlist *nl, std::set<Netlist*> &nl_todo)
|
|
|
|
{
|
|
|
|
if (design->modules.count(RTLIL::escape_id(nl->Owner()->Name())))
|
|
|
|
log_cmd_error("Re-definition of module `%s'.\n", nl->Owner()->Name());
|
|
|
|
|
|
|
|
RTLIL::Module *module = new RTLIL::Module;
|
|
|
|
module->name = RTLIL::escape_id(nl->Owner()->Name());
|
|
|
|
design->modules[module->name] = module;
|
|
|
|
|
|
|
|
log("Importing module %s.\n", RTLIL::id2cstr(module->name));
|
|
|
|
|
|
|
|
std::map<Net*, RTLIL::SigBit> net_map;
|
|
|
|
|
|
|
|
MapIter mi, mi2;
|
|
|
|
Port *port;
|
|
|
|
PortBus *portbus;
|
|
|
|
Net *net;
|
|
|
|
NetBus *netbus;
|
|
|
|
Instance *inst;
|
|
|
|
|
|
|
|
FOREACH_PORT_OF_NETLIST(nl, mi, port)
|
|
|
|
{
|
|
|
|
if (port->Bus())
|
|
|
|
continue;
|
|
|
|
|
|
|
|
// log(" importing port %s.\n", port->Name());
|
|
|
|
|
|
|
|
RTLIL::Wire *wire = new RTLIL::Wire;
|
|
|
|
wire->name = RTLIL::escape_id(port->Name());
|
|
|
|
import_attributes(wire->attributes, port);
|
|
|
|
module->add(wire);
|
|
|
|
|
|
|
|
if (port->GetDir() == DIR_INOUT || port->GetDir() == DIR_IN)
|
|
|
|
wire->port_input = true;
|
|
|
|
if (port->GetDir() == DIR_INOUT || port->GetDir() == DIR_OUT)
|
|
|
|
wire->port_output = true;
|
|
|
|
|
|
|
|
if (port->GetNet()) {
|
|
|
|
net = port->GetNet();
|
|
|
|
if (net_map.count(net) == 0)
|
|
|
|
net_map[net] = wire;
|
|
|
|
else if (wire->port_input)
|
|
|
|
module->connections.push_back(RTLIL::SigSig(net_map.at(net), wire));
|
|
|
|
else
|
|
|
|
module->connections.push_back(RTLIL::SigSig(wire, net_map.at(net)));
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
FOREACH_PORTBUS_OF_NETLIST(nl, mi, portbus)
|
|
|
|
{
|
|
|
|
// log(" importing portbus %s.\n", portbus->Name());
|
|
|
|
|
|
|
|
RTLIL::Wire *wire = new RTLIL::Wire;
|
|
|
|
wire->name = RTLIL::escape_id(portbus->Name());
|
|
|
|
wire->width = portbus->Size();
|
|
|
|
wire->start_offset = std::min(portbus->LeftIndex(), portbus->RightIndex());
|
|
|
|
import_attributes(wire->attributes, port);
|
|
|
|
module->add(wire);
|
|
|
|
|
|
|
|
if (portbus->GetDir() == DIR_INOUT || portbus->GetDir() == DIR_IN)
|
|
|
|
wire->port_input = true;
|
|
|
|
if (portbus->GetDir() == DIR_INOUT || portbus->GetDir() == DIR_OUT)
|
|
|
|
wire->port_output = true;
|
|
|
|
|
|
|
|
for (int i = portbus->LeftIndex();; i += portbus->IsUp() ? +1 : -1) {
|
|
|
|
if (portbus->ElementAtIndex(i) && portbus->ElementAtIndex(i)->GetNet()) {
|
|
|
|
net = portbus->ElementAtIndex(i)->GetNet();
|
|
|
|
RTLIL::SigBit bit(wire, i - wire->start_offset);
|
|
|
|
if (net_map.count(net) == 0)
|
|
|
|
net_map[net] = bit;
|
|
|
|
else if (wire->port_input)
|
|
|
|
module->connections.push_back(RTLIL::SigSig(net_map.at(net), bit));
|
|
|
|
else
|
|
|
|
module->connections.push_back(RTLIL::SigSig(bit, net_map.at(net)));
|
|
|
|
}
|
|
|
|
if (i == portbus->RightIndex())
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
module->fixup_ports();
|
|
|
|
|
|
|
|
FOREACH_NET_OF_NETLIST(nl, mi, net)
|
|
|
|
{
|
|
|
|
if (net_map.count(net)) {
|
|
|
|
// log(" skipping net %s.\n", net->Name());
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (net->Bus())
|
|
|
|
continue;
|
|
|
|
|
|
|
|
// log(" importing net %s.\n", net->Name());
|
|
|
|
|
|
|
|
RTLIL::Wire *wire = new RTLIL::Wire;
|
|
|
|
wire->name = RTLIL::escape_id(net->Name());
|
|
|
|
while (module->count_id(wire->name))
|
|
|
|
wire->name += "_";
|
|
|
|
import_attributes(wire->attributes, port);
|
|
|
|
module->add(wire);
|
|
|
|
|
|
|
|
if (net_map.count(net) == 0)
|
|
|
|
net_map[net] = wire;
|
|
|
|
else
|
|
|
|
module->connections.push_back(RTLIL::SigSig(wire, net_map.at(net)));
|
|
|
|
}
|
|
|
|
|
|
|
|
FOREACH_NETBUS_OF_NETLIST(nl, mi, netbus)
|
|
|
|
{
|
|
|
|
bool found_new_net = false;
|
|
|
|
for (int i = netbus->LeftIndex();; i += netbus->IsUp() ? +1 : -1) {
|
|
|
|
net = netbus->ElementAtIndex(i);
|
|
|
|
if (net_map.count(net) == 0)
|
|
|
|
found_new_net = true;
|
|
|
|
if (i == netbus->RightIndex())
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (found_new_net)
|
|
|
|
{
|
|
|
|
// log(" importing netbus %s.\n", netbus->Name());
|
|
|
|
|
|
|
|
RTLIL::Wire *wire = new RTLIL::Wire;
|
|
|
|
wire->name = RTLIL::escape_id(netbus->Name());
|
|
|
|
wire->width = netbus->Size();
|
|
|
|
wire->start_offset = std::min(netbus->LeftIndex(), netbus->RightIndex());
|
|
|
|
while (module->count_id(wire->name))
|
|
|
|
wire->name += "_";
|
|
|
|
import_attributes(wire->attributes, port);
|
|
|
|
module->add(wire);
|
|
|
|
|
|
|
|
for (int i = netbus->LeftIndex();; i += netbus->IsUp() ? +1 : -1) {
|
|
|
|
if (netbus->ElementAtIndex(i)) {
|
|
|
|
net = netbus->ElementAtIndex(i);
|
|
|
|
RTLIL::SigBit bit(wire, i - wire->start_offset);
|
|
|
|
if (net_map.count(net) == 0)
|
|
|
|
net_map[net] = bit;
|
|
|
|
else
|
|
|
|
module->connections.push_back(RTLIL::SigSig(bit, net_map.at(net)));
|
|
|
|
}
|
|
|
|
if (i == netbus->RightIndex())
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
// log(" skipping netbus %s.\n", netbus->Name());
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
FOREACH_INSTANCE_OF_NETLIST(nl, mi, inst)
|
|
|
|
{
|
2014-03-09 21:03:08 -05:00
|
|
|
// log(" importing cell %s (%s).\n", inst->Name(), inst->View()->Owner()->Name());
|
2014-03-09 14:40:04 -05:00
|
|
|
|
|
|
|
if (inst->Type() == PRIM_PWR) {
|
|
|
|
module->connections.push_back(RTLIL::SigSig(net_map.at(inst->GetOutput()), RTLIL::State::S1));
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == PRIM_GND) {
|
|
|
|
module->connections.push_back(RTLIL::SigSig(net_map.at(inst->GetOutput()), RTLIL::State::S0));
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == PRIM_X) {
|
|
|
|
module->connections.push_back(RTLIL::SigSig(net_map.at(inst->GetOutput()), RTLIL::State::Sx));
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == PRIM_Z) {
|
|
|
|
module->connections.push_back(RTLIL::SigSig(net_map.at(inst->GetOutput()), RTLIL::State::Sz));
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
2014-03-09 21:03:08 -05:00
|
|
|
if (inst->Type() == PRIM_AND) {
|
|
|
|
module->addAnd(RTLIL::escape_id(inst->Name()), net_map.at(inst->GetInput1()), net_map.at(inst->GetInput2()), net_map.at(inst->GetOutput()));
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == PRIM_OR) {
|
|
|
|
module->addOr(RTLIL::escape_id(inst->Name()), net_map.at(inst->GetInput1()), net_map.at(inst->GetInput2()), net_map.at(inst->GetOutput()));
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == PRIM_XOR) {
|
|
|
|
module->addXor(RTLIL::escape_id(inst->Name()), net_map.at(inst->GetInput1()), net_map.at(inst->GetInput2()), net_map.at(inst->GetOutput()));
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == PRIM_XNOR) {
|
|
|
|
module->addXnor(RTLIL::escape_id(inst->Name()), net_map.at(inst->GetInput1()), net_map.at(inst->GetInput2()), net_map.at(inst->GetOutput()));
|
2014-03-09 14:40:04 -05:00
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == PRIM_INV) {
|
2014-03-09 21:03:08 -05:00
|
|
|
module->addNot(RTLIL::escape_id(inst->Name()), net_map.at(inst->GetInput()), net_map.at(inst->GetOutput()));
|
2014-03-09 14:40:04 -05:00
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == PRIM_MUX) {
|
2014-03-09 21:03:08 -05:00
|
|
|
module->addMux(RTLIL::escape_id(inst->Name()), net_map.at(inst->GetInput1()), net_map.at(inst->GetInput2()), net_map.at(inst->GetControl()), net_map.at(inst->GetOutput()));
|
2014-03-09 14:40:04 -05:00
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == PRIM_FADD)
|
|
|
|
{
|
2014-03-09 21:03:08 -05:00
|
|
|
RTLIL::SigSpec a_plus_b = module->new_wire(2, NEW_ID);
|
|
|
|
RTLIL::SigSpec y = net_map.at(inst->GetOutput());
|
|
|
|
y.append(net_map.at(inst->GetCout()));
|
|
|
|
|
|
|
|
module->addAdd(NEW_ID, net_map.at(inst->GetInput1()), net_map.at(inst->GetInput2()), a_plus_b);
|
|
|
|
module->addAdd(RTLIL::escape_id(inst->Name()), a_plus_b, net_map.at(inst->GetCin()), y);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == PRIM_DFFRS)
|
|
|
|
{
|
|
|
|
RTLIL::SigSpec tmp1 = module->new_wire(1, NEW_ID);
|
|
|
|
RTLIL::SigSpec tmp2 = module->new_wire(1, NEW_ID);
|
|
|
|
RTLIL::SigSpec d = module->new_wire(1, NEW_ID);
|
|
|
|
|
|
|
|
module->addOr(NEW_ID, net_map.at(inst->GetInput()), net_map.at(inst->GetSet()), tmp1);
|
|
|
|
module->addNot(NEW_ID, net_map.at(inst->GetReset()), tmp2);
|
|
|
|
module->addAnd(NEW_ID, tmp1, tmp2, d);
|
|
|
|
module->addDff(NEW_ID, net_map.at(inst->GetClock()), d, net_map.at(inst->GetOutput()));
|
2014-03-09 14:40:04 -05:00
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
2014-03-10 06:06:57 -05:00
|
|
|
#define IN operatorInput(inst, net_map)
|
|
|
|
#define IN1 operatorInput1(inst, net_map)
|
|
|
|
#define IN2 operatorInput2(inst, net_map)
|
|
|
|
#define OUT operatorOutput(inst, net_map, module)
|
|
|
|
#define SIGNED inst->View()->IsSigned()
|
|
|
|
|
|
|
|
if (inst->Type() == OPER_ADDER) {
|
|
|
|
module->addAdd(RTLIL::escape_id(inst->Name()), IN1, IN2, OUT, SIGNED);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == OPER_MULTIPLIER) {
|
|
|
|
module->addMul(RTLIL::escape_id(inst->Name()), IN1, IN2, OUT, SIGNED);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == OPER_DIVIDER) {
|
|
|
|
module->addDiv(RTLIL::escape_id(inst->Name()), IN1, IN2, OUT, SIGNED);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == OPER_MODULO) {
|
|
|
|
module->addMod(RTLIL::escape_id(inst->Name()), IN1, IN2, OUT, SIGNED);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
// FIXME: OPER_REMAINDER -- how is this different from OPER_MODULO ?
|
|
|
|
|
|
|
|
if (inst->Type() == OPER_REMAINDER) {
|
|
|
|
module->addMod(RTLIL::escape_id(inst->Name()), IN1, IN2, OUT, SIGNED);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == OPER_SHIFT_LEFT) {
|
|
|
|
module->addShl(RTLIL::escape_id(inst->Name()), IN1, IN2, OUT, SIGNED);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == OPER_SHIFT_RIGHT) {
|
|
|
|
module->addShr(RTLIL::escape_id(inst->Name()), IN1, IN2, OUT, SIGNED);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
// FIXME: OPER_ROTATE_LEFT OPER_ROTATE_RIGHT -- are they $sshl / $sshr cells?
|
|
|
|
|
|
|
|
if (inst->Type() == OPER_REDUCE_AND) {
|
|
|
|
module->addReduceAnd(RTLIL::escape_id(inst->Name()), IN, OUT, SIGNED);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == OPER_REDUCE_OR) {
|
|
|
|
module->addReduceOr(RTLIL::escape_id(inst->Name()), IN, OUT, SIGNED);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == OPER_REDUCE_XOR) {
|
|
|
|
module->addReduceXor(RTLIL::escape_id(inst->Name()), IN, OUT, SIGNED);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == OPER_REDUCE_NAND) {
|
|
|
|
RTLIL::SigSpec tmp = module->new_wire(inst->OutputSize(), NEW_ID);
|
|
|
|
module->addReduceAnd(NEW_ID, IN, tmp, SIGNED);
|
|
|
|
module->addNot(RTLIL::escape_id(inst->Name()), tmp, OUT);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == OPER_REDUCE_NOR) {
|
|
|
|
RTLIL::SigSpec tmp = module->new_wire(inst->OutputSize(), NEW_ID);
|
|
|
|
module->addReduceOr(NEW_ID, IN, tmp, SIGNED);
|
|
|
|
module->addNot(RTLIL::escape_id(inst->Name()), tmp, OUT);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == OPER_REDUCE_XNOR) {
|
|
|
|
module->addReduceXnor(RTLIL::escape_id(inst->Name()), IN, OUT, SIGNED);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == OPER_LESSTHAN) {
|
|
|
|
module->addLt(RTLIL::escape_id(inst->Name()), IN1, IN2, OUT, SIGNED);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == OPER_EQUAL) {
|
|
|
|
module->addEq(RTLIL::escape_id(inst->Name()), IN1, IN2, OUT, SIGNED);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (inst->Type() == OPER_NEQUAL) {
|
|
|
|
module->addNe(RTLIL::escape_id(inst->Name()), IN1, IN2, OUT, SIGNED);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
#undef IN
|
|
|
|
#undef IN1
|
|
|
|
#undef IN2
|
|
|
|
#undef OUT
|
|
|
|
#undef SIGNED
|
|
|
|
|
|
|
|
if (inst->IsOperator())
|
|
|
|
log("Warning: Unsupported Verific operator: %s\n", inst->View()->Owner()->Name());
|
|
|
|
|
2014-03-09 14:40:04 -05:00
|
|
|
if (inst->IsPrimitive())
|
|
|
|
log_error("Unsupported Verific primitive: %s\n", inst->View()->Owner()->Name());
|
|
|
|
|
|
|
|
nl_todo.insert(inst->View());
|
|
|
|
|
|
|
|
RTLIL::Cell *cell = new RTLIL::Cell;
|
|
|
|
cell->name = RTLIL::escape_id(inst->Name());
|
|
|
|
cell->type = RTLIL::escape_id(inst->View()->Owner()->Name());
|
|
|
|
module->add(cell);
|
|
|
|
|
|
|
|
PortRef *pr ;
|
|
|
|
FOREACH_PORTREF_OF_INST(inst, mi2, pr) {
|
|
|
|
// log(" .%s(%s)\n", pr->GetPort()->Name(), pr->GetNet()->Name());
|
|
|
|
const char *port_name = pr->GetPort()->Name();
|
|
|
|
int port_offset = 0;
|
|
|
|
if (pr->GetPort()->Bus()) {
|
|
|
|
port_name = pr->GetPort()->Bus()->Name();
|
|
|
|
port_offset = pr->GetPort()->Bus()->IndexOf(pr->GetPort()) -
|
|
|
|
std::min(pr->GetPort()->Bus()->LeftIndex(), pr->GetPort()->Bus()->RightIndex());
|
|
|
|
}
|
|
|
|
RTLIL::SigSpec &conn = cell->connections[RTLIL::escape_id(port_name)];
|
|
|
|
while (conn.width <= port_offset)
|
|
|
|
conn.append(RTLIL::State::Sz);
|
|
|
|
conn.replace(port_offset, net_map.at(pr->GetNet()));
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2014-03-13 11:34:31 -05:00
|
|
|
#endif /* YOSYS_ENABLE_VERIFIC */
|
2014-03-09 14:40:04 -05:00
|
|
|
|
|
|
|
struct VerificPass : public Pass {
|
|
|
|
VerificPass() : Pass("verific", "load Verilog and VHDL designs using Verific") { }
|
|
|
|
virtual void help()
|
|
|
|
{
|
|
|
|
// |---v---|---v---|---v---|---v---|---v---|---v---|---v---|---v---|---v---|---v---|
|
|
|
|
log("\n");
|
|
|
|
log(" verific {-vlog95|-vlog2k|-sv2005|-sv2009|-sv} <verilog-file>..\n");
|
|
|
|
log("\n");
|
|
|
|
log("Load the specified Verilog/SystemVerilog files into Verific.\n");
|
|
|
|
log("\n");
|
|
|
|
log("\n");
|
|
|
|
log(" verific {-vhdl87|-vhdl93|-vhdl2k|-vhdl2008} <vhdl-file>..\n");
|
|
|
|
log("\n");
|
|
|
|
log("Load the specified VHDL files into Verific.\n");
|
|
|
|
log("\n");
|
|
|
|
log("\n");
|
|
|
|
log(" verific -import <top-module>..\n");
|
|
|
|
log("\n");
|
|
|
|
log("Elaborate the design for the sepcified top modules, import to Yosys and\n");
|
|
|
|
log("reset the internal state of Verific.\n");
|
|
|
|
log("\n");
|
|
|
|
log("\n");
|
|
|
|
log("Visit http://verific.com/ for more information on Verific.\n");
|
|
|
|
log("\n");
|
|
|
|
}
|
2014-03-13 11:34:31 -05:00
|
|
|
#ifdef YOSYS_ENABLE_VERIFIC
|
2014-03-09 14:40:04 -05:00
|
|
|
virtual void execute(std::vector<std::string> args, RTLIL::Design *design)
|
|
|
|
{
|
2014-03-10 06:06:57 -05:00
|
|
|
log_header("Executing VERIFIC (loading Verilog and VHDL designs using Verific).\n");
|
2014-03-09 14:40:04 -05:00
|
|
|
|
|
|
|
Message::SetConsoleOutput(0);
|
|
|
|
Message::RegisterCallBackMsg(msg_func);
|
|
|
|
|
|
|
|
if (args.size() > 1 && args[1] == "-vlog95") {
|
|
|
|
for (size_t argidx = 2; argidx < args.size(); argidx++)
|
|
|
|
if (!veri_file::Analyze(args[argidx].c_str(), veri_file::VERILOG_95))
|
|
|
|
log_cmd_error("Reading `%s' in VERILOG_95 mode failed.\n", args[argidx].c_str());
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (args.size() > 1 && args[1] == "-vlog2k") {
|
|
|
|
for (size_t argidx = 2; argidx < args.size(); argidx++)
|
|
|
|
if (!veri_file::Analyze(args[argidx].c_str(), veri_file::VERILOG_2K))
|
|
|
|
log_cmd_error("Reading `%s' in VERILOG_2K mode failed.\n", args[argidx].c_str());
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (args.size() > 1 && args[1] == "-sv2005") {
|
|
|
|
for (size_t argidx = 2; argidx < args.size(); argidx++)
|
|
|
|
if (!veri_file::Analyze(args[argidx].c_str(), veri_file::SYSTEM_VERILOG_2005))
|
|
|
|
log_cmd_error("Reading `%s' in SYSTEM_VERILOG_2005 mode failed.\n", args[argidx].c_str());
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (args.size() > 1 && args[1] == "-sv2009") {
|
|
|
|
for (size_t argidx = 2; argidx < args.size(); argidx++)
|
|
|
|
if (!veri_file::Analyze(args[argidx].c_str(), veri_file::SYSTEM_VERILOG_2009))
|
|
|
|
log_cmd_error("Reading `%s' in SYSTEM_VERILOG_2009 mode failed.\n", args[argidx].c_str());
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (args.size() > 1 && args[1] == "-sv") {
|
|
|
|
for (size_t argidx = 2; argidx < args.size(); argidx++)
|
|
|
|
if (!veri_file::Analyze(args[argidx].c_str(), veri_file::SYSTEM_VERILOG))
|
|
|
|
log_cmd_error("Reading `%s' in SYSTEM_VERILOG mode failed.\n", args[argidx].c_str());
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (args.size() > 1 && args[1] == "-vhdl87") {
|
2014-03-13 11:34:31 -05:00
|
|
|
vhdl_file::SetDefaultLibraryPath((proc_share_dirname() + "verific/vhdl_vdbs_1993").c_str());
|
2014-03-09 14:40:04 -05:00
|
|
|
for (size_t argidx = 2; argidx < args.size(); argidx++)
|
|
|
|
if (!vhdl_file::Analyze(args[argidx].c_str(), "work", vhdl_file::VHDL_87))
|
|
|
|
log_cmd_error("Reading `%s' in VHDL_87 mode failed.\n", args[argidx].c_str());
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (args.size() > 1 && args[1] == "-vhdl93") {
|
2014-03-13 11:34:31 -05:00
|
|
|
vhdl_file::SetDefaultLibraryPath((proc_share_dirname() + "verific/vhdl_vdbs_1993").c_str());
|
2014-03-09 14:40:04 -05:00
|
|
|
for (size_t argidx = 2; argidx < args.size(); argidx++)
|
|
|
|
if (!vhdl_file::Analyze(args[argidx].c_str(), "work", vhdl_file::VHDL_93))
|
|
|
|
log_cmd_error("Reading `%s' in VHDL_93 mode failed.\n", args[argidx].c_str());
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (args.size() > 1 && args[1] == "-vhdl2k") {
|
2014-03-13 11:34:31 -05:00
|
|
|
vhdl_file::SetDefaultLibraryPath((proc_share_dirname() + "verific/vhdl_vdbs_1993").c_str());
|
2014-03-09 14:40:04 -05:00
|
|
|
for (size_t argidx = 2; argidx < args.size(); argidx++)
|
|
|
|
if (!vhdl_file::Analyze(args[argidx].c_str(), "work", vhdl_file::VHDL_2K))
|
|
|
|
log_cmd_error("Reading `%s' in VHDL_2K mode failed.\n", args[argidx].c_str());
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (args.size() > 1 && args[1] == "-vhdl2008") {
|
2014-03-13 11:34:31 -05:00
|
|
|
vhdl_file::SetDefaultLibraryPath((proc_share_dirname() + "verific/vhdl_vdbs_2008").c_str());
|
2014-03-09 14:40:04 -05:00
|
|
|
for (size_t argidx = 2; argidx < args.size(); argidx++)
|
|
|
|
if (!vhdl_file::Analyze(args[argidx].c_str(), "work", vhdl_file::VHDL_2008))
|
|
|
|
log_cmd_error("Reading `%s' in VHDL_2008 mode failed.\n", args[argidx].c_str());
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (args.size() > 1 && args[1] == "-import")
|
|
|
|
{
|
|
|
|
std::set<Netlist*> nl_todo, nl_done;
|
|
|
|
|
|
|
|
if (args.size() == 2)
|
|
|
|
log_cmd_error("No top module specified.\n");
|
|
|
|
|
|
|
|
for (size_t argidx = 2; argidx < args.size(); argidx++) {
|
|
|
|
if (veri_file::GetModule(args[argidx].c_str())) {
|
|
|
|
if (!veri_file::Elaborate(args[argidx].c_str()))
|
|
|
|
log_cmd_error("Elaboration of top module `%s' failed.\n", args[argidx].c_str());
|
|
|
|
nl_todo.insert(Netlist::PresentDesign());
|
|
|
|
} else {
|
|
|
|
if (!vhdl_file::Elaborate(args[argidx].c_str()))
|
|
|
|
log_cmd_error("Elaboration of top module `%s' failed.\n", args[argidx].c_str());
|
|
|
|
nl_todo.insert(Netlist::PresentDesign());
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
while (!nl_todo.empty()) {
|
|
|
|
Netlist *nl = *nl_todo.begin();
|
|
|
|
if (nl_done.count(nl) == 0)
|
|
|
|
import_netlist(design, nl, nl_todo);
|
|
|
|
nl_todo.erase(nl);
|
|
|
|
nl_done.insert(nl);
|
|
|
|
}
|
|
|
|
|
|
|
|
Libset::Reset();
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
log_cmd_error("Missing or unsupported mode parameter.\n");
|
|
|
|
}
|
2014-03-13 11:34:31 -05:00
|
|
|
#else /* YOSYS_ENABLE_VERIFIC */
|
2014-03-09 14:40:04 -05:00
|
|
|
virtual void execute(std::vector<std::string>, RTLIL::Design *) {
|
|
|
|
log_cmd_error("This version of Yosys is built without Verific support.\n");
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
} VerificPass;
|
|
|
|
|