mirrors/yosys
3
0
Fork 0
mirror of https://github.com/YosysHQ/yosys synced 2025-10-10 09:48:06 +00:00
Code Activity

sdc: add -keep_hierarchy

Browse source
This commit is contained in:
Emil J. Tywoniak 2025-10-02 16:52:46 +02:00
parent 4cf0f8e799
commit 153132d1e9
2 changed files with 41 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

43
passes/cmds/sdc.cc
View file

@ -258,12 +258,16 @@ struct SdcObjects {
bool mark(Module* mod) { bool mark(Module* mod) {
for (auto* cell : mod->cells()) { for (auto* cell : mod->cells()) {
if (auto* submod = design->module(cell->type)) if (auto* submod = design->module(cell->type))
if (mark(submod)) if (mark(submod)) {
mod->set_bool_attribute(ID::keep_hierarchy);
return true; return true;
} }
}
if (tracked_modules.count(mod)) if (tracked_modules.count(mod)) {
mod->set_bool_attribute(ID::keep_hierarchy);
return true; return true;
}
return false; return false;
} }
@ -283,7 +287,7 @@ struct SdcObjects {
} }
log_debug("keep_hierarchy tracked modules:\n"); log_debug("keep_hierarchy tracked modules:\n");
for (auto* mod : tracked_modules) for (auto* mod : tracked_modules)
log_debug("%s", mod->name); log_debug("\t%s\n", mod->name);
} }
bool mark() { bool mark() {
return mark(design->top_module()); return mark(design->top_module());
@ -669,6 +673,38 @@ static int sdc_get_ports_cmd(ClientData data, Tcl_Interp *interp, int objc, Tcl_
return TCL_OK; return TCL_OK;
} }
static int sdc_get_nets_cmd(ClientData data, Tcl_Interp *interp, int objc, Tcl_Obj* const objv[])
{
auto* objects = (SdcObjects*)data;
GetterOpts opts("get_nets", {"hierarchical", "hier", "regexp", "nocase", "hsc", "of_objects"});
opts.parse(objc, objv);
if (objects->collect_mode == SdcObjects::CollectMode::SimpleGetter)
opts.check_simple();
MatchConfig config(opts.regexp_flag, opts.nocase_flag, false);
std::vector<std::tuple<std::string, Wire*, BitSelection>> resolved;
const auto& ports = objects->design_nets;
resolved = find_matching<Wire*, decltype(ports)>(ports, config, opts.patterns, "net");
Tcl_Obj *result = nullptr;
for (auto [name, wire, matching_bits] : resolved) {
if (objects->value_mode == SdcObjects::ValueMode::Normal)
log_error("TODO normal\n");
// objects->build_normal_result(interp, resolved.size(), wire->width, name, result, matching_bits);
if (objects->collect_mode != SdcObjects::CollectMode::FullConstraint)
merge_or_init(std::make_pair(name, wire), objects->constrained_nets, matching_bits);
}
if (objects->value_mode == SdcObjects::ValueMode::Graph) {
return graph_node(TclCall{interp, objc, objv});
// return objects->graph_node(interp, objc, objv, std::move(resolved), objects->resolved_port_pattern_sets);
}
if (result)
Tcl_SetObjResult(interp, result);
return TCL_OK;
}
std::optional<std::tuple<std::string, std::string>> split_at(std::string s) std::optional<std::tuple<std::string, std::string>> split_at(std::string s)
{ {
size_t pos = s.find('@'); size_t pos = s.find('@');
@ -773,6 +809,7 @@ public:
objects->collect_mode = SdcObjects::CollectMode::SimpleGetter; objects->collect_mode = SdcObjects::CollectMode::SimpleGetter;
objects->value_mode = SdcObjects::ValueMode::Graph; objects->value_mode = SdcObjects::ValueMode::Graph;
Tcl_CreateObjCommand(interp, "get_pins", sdc_get_pins_cmd, (ClientData) objects.get(), NULL); Tcl_CreateObjCommand(interp, "get_pins", sdc_get_pins_cmd, (ClientData) objects.get(), NULL);
Tcl_CreateObjCommand(interp, "get_nets", sdc_get_nets_cmd, (ClientData) objects.get(), NULL);
Tcl_CreateObjCommand(interp, "get_ports", sdc_get_ports_cmd, (ClientData) objects.get(), NULL); Tcl_CreateObjCommand(interp, "get_ports", sdc_get_ports_cmd, (ClientData) objects.get(), NULL);
Tcl_CreateObjCommand(interp, "ys_track_typed_key", ys_track_typed_key_cmd, (ClientData) objects.get(), NULL); Tcl_CreateObjCommand(interp, "ys_track_typed_key", ys_track_typed_key_cmd, (ClientData) objects.get(), NULL);
return interp; return interp;

2
passes/cmds/stubs.sdc
View file

@ -26,7 +26,7 @@ proc unknown {args} {
set ret "YOSYS_SDC_MAGIC_NODE_$sdc_call_index" set ret "YOSYS_SDC_MAGIC_NODE_$sdc_call_index"
incr sdc_call_index incr sdc_call_index
lappend sdc_calls $args lappend sdc_calls $args
puts "unknown $args, returning YOSYS_SDC_MAGIC_NODE_$sdc_call_index" # puts "unknown $args, returning YOSYS_SDC_MAGIC_NODE_$sdc_call_index"
return $ret return $ret
} }
proc list {args} { proc list {args} {