Skip to content

Optimize xilinx_async_bram_patch.tcl #350

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
eirikwitt wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Optimize xilinx_async_bram_patch.tcl #350

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
30 changes: 11 additions & 19 deletions hw/scripts/xilinx_async_bram_patch.tcl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -79,25 +79,11 @@ proc build_parent_child_map {all_cells} {
return $parent_child_map
}

proc find_cell_descendants_recursive {parent_cell parent_child_map} {
set descendants {}
if {[dict exists $parent_child_map $parent_cell]} {
set children [dict get $parent_child_map $parent_cell]
foreach child $children {
# Add the child to the list
lappend descendants $child
# Recursively add its descendants
set sub_descendants [find_cell_descendants_recursive $child $parent_child_map]
lappend descendants {*}$sub_descendants
}
}
return $descendants
}

proc find_cell_descendants {parent_cell} {
set all_cells [get_cells -hierarchical]
set parent_child_map [build_parent_child_map $all_cells]
return [find_cell_descendants_recursive $parent_cell $parent_child_map]
current_instance $parent_cell
set descendants [get_cells -hierarchical]
current_instance
return $descendants
}

proc find_nested_cells {parent_cell name_match {should_exist 1}} {
Expand All @@ -120,7 +106,10 @@ proc find_nested_cells {parent_cell name_match {should_exist 1}} {

proc find_cell_nets {cell name_match {should_exist 1}} {
set matching_nets {}
foreach net [get_nets -hierarchical -filter "PARENT_CELL == $cell"] {
current_instance $cell
set nets [get_nets -hierarchical -filter "PARENT_CELL == $cell"]
current_instance
foreach net $nets {
set name [get_property NAME $net]
if {[regexp $name_match $name]} {
lappend matching_nets $net
Expand All @@ -144,7 +133,10 @@ proc find_cell_net {cell name_match {should_exist 1}} {
}

proc get_cell_net {cell name} {
current_instance $cell
set net [get_nets -hierarchical -filter "PARENT_CELL == $cell && NAME == $name"]
current_instance

if {[llength $net] == 0} {
puts "ERROR: No matching net found for '$cell' matching '$name'."
exit -1
Expand Down