mirror of https://github.com/openXC7/prjxray.git
Add routing test to switchboxes minitest
Signed-off-by: Clifford Wolf <clifford@clifford.at> Signed-off-by: Tim 'mithro' Ansell <mithro@mithis.com>
This commit is contained in:
Clifford Wolf
Tim 'mithro' Ansell
parent
1393723058
commit
1ce90e7f21
|
|
@ -3,5 +3,11 @@
|
||||||
/design/
|
/design/
|
||||||
/design.dcp
|
/design.dcp
|
||||||
/design.bit
|
/design.bit
|
||||||
/CLBLL_L_X12Y119.txt
|
/design.bits
|
||||||
/INT_L_X12Y119.txt
|
/pips_clbll.txt
|
||||||
|
/pips_int.txt
|
||||||
|
/routes.dcp
|
||||||
|
/routes.bit
|
||||||
|
/routes.bits
|
||||||
|
/usage_statistics_webtalk.html
|
||||||
|
/usage_statistics_webtalk.xml
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,63 @@
|
||||||
|
|
||||||
|
proc tile_pip_report {fd tile_name} {
|
||||||
|
set tile [get_tile $tile_name]
|
||||||
|
set pips [get_pips -of_object $tile]
|
||||||
|
set dsts [lsort -unique [get_wires -filter "TILE_NAME == $tile" -downhill -of_objects $pips]]
|
||||||
|
|
||||||
|
puts $fd ""
|
||||||
|
puts $fd "PIP Report for tile $tile"
|
||||||
|
puts $fd "==================================="
|
||||||
|
|
||||||
|
puts $fd ""
|
||||||
|
puts $fd "PIPs that implement 1:1 connections"
|
||||||
|
puts $fd "-----------------------------------"
|
||||||
|
|
||||||
|
foreach dst $dsts {
|
||||||
|
set dst_node [get_node -of_objects $dst]
|
||||||
|
set dst_span [llength [get_tiles -of_objects $dst_node]]
|
||||||
|
set pips [get_pips -filter "TILE == $tile" -uphill -of_objects $dst_node]
|
||||||
|
if {[llength $pips] == 1} {
|
||||||
|
puts $fd ""
|
||||||
|
puts $fd "Destination Wire (Node, Span): $dst ($dst_node, $dst_span)"
|
||||||
|
foreach pip $pips {
|
||||||
|
set src [get_wires -uphill -of_objects $pip]
|
||||||
|
set src_node [get_node -of_objects $src]
|
||||||
|
set src_span [llength [get_tiles -of_objects $src_node]]
|
||||||
|
puts $fd " Source Wire (Node, Span): $src ($src_node, $src_span) via $pip"
|
||||||
|
}
|
||||||
|
foreach pip [get_pips -quiet -filter "TILE != $tile" -uphill -of_objects $dst_node] {
|
||||||
|
puts $fd " Outside Source PIP: $pip"
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
puts $fd ""
|
||||||
|
puts $fd "PIPs that implement N:1 connections"
|
||||||
|
puts $fd "-----------------------------------"
|
||||||
|
|
||||||
|
foreach dst $dsts {
|
||||||
|
set dst_node [get_node -of_objects $dst]
|
||||||
|
set dst_span [llength [get_tiles -of_objects $dst_node]]
|
||||||
|
set pips [get_pips -filter "TILE == $tile" -uphill -of_objects $dst_node]
|
||||||
|
if {[llength $pips] != 1} {
|
||||||
|
puts $fd ""
|
||||||
|
puts $fd "Destination Wire (Node, Span): $dst ($dst_node, $dst_span)"
|
||||||
|
foreach pip $pips {
|
||||||
|
set src [get_wires -uphill -of_objects $pip]
|
||||||
|
set src_node [get_node -of_objects $src]
|
||||||
|
set src_span [llength [get_tiles -of_objects $src_node]]
|
||||||
|
puts $fd " Source Wire (Node, Span): $src ($src_node, $src_span) via $pip"
|
||||||
|
}
|
||||||
|
foreach pip [get_pips -quiet -filter "TILE != $tile" -uphill -of_objects $dst_node] {
|
||||||
|
puts $fd " Outside Source PIP: $pip"
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
puts $fd ""
|
||||||
|
puts $fd ""
|
||||||
|
}
|
||||||
|
|
||||||
|
tile_pip_report [open "pips_clbll.txt" w] CLBLL_L_X12Y119
|
||||||
|
tile_pip_report [open "pips_int.txt" w] INT_L_X12Y119
|
||||||
|
|
||||||
|
|
@ -0,0 +1,13 @@
|
||||||
|
|
||||||
|
set_property FIXED_ROUTE {} [get_nets]
|
||||||
|
route_design -unroute
|
||||||
|
|
||||||
|
route_via x_OBUF {INT_L_X10Y118/NR1BEG1 INT_L_X10Y119/EE2BEG0 INT_L_X12Y119/EE2BEG0 INT_L_X14Y119/SW2BEG0}
|
||||||
|
route_via y_OBUF {INT_L_X10Y116/NR1BEG1 INT_L_X10Y117/EE2BEG0 INT_L_X12Y117/EE2BEG0 INT_L_X14Y117/SW2BEG0}
|
||||||
|
route_via z_OBUF {INT_L_X10Y114/NR1BEG1 INT_L_X10Y115/EE2BEG0 INT_L_X12Y115/EE2BEG0 INT_L_X14Y115/SW2BEG0}
|
||||||
|
|
||||||
|
route_design
|
||||||
|
|
||||||
|
write_checkpoint -force routes.dcp
|
||||||
|
write_bitstream -force routes.bit
|
||||||
|
|
||||||
|
|
@ -0,0 +1,4 @@
|
||||||
|
#!/bin/bash
|
||||||
|
vivado -mode batch -source runme.tcl
|
||||||
|
../../tools/bitread -F $XRAY_ROI_FRAMES -o design.bits -zy design.bit
|
||||||
|
../../tools/bitread -F $XRAY_ROI_FRAMES -o routes.bits -zy routes.bit
|
||||||
|
|
@ -18,67 +18,9 @@ place_design
|
||||||
route_design
|
route_design
|
||||||
|
|
||||||
write_checkpoint -force design.dcp
|
write_checkpoint -force design.dcp
|
||||||
# write_bitstream -force design.bit
|
write_bitstream -force design.bit
|
||||||
|
|
||||||
proc tile_pip_report {fd tile_name} {
|
source ../../utils/utils.tcl
|
||||||
set tile [get_tile $tile_name]
|
source pips.tcl
|
||||||
set pips [get_pips -of_object $tile]
|
source routes.tcl
|
||||||
set dsts [lsort -unique [get_wires -filter "TILE_NAME == $tile" -downhill -of_objects $pips]]
|
|
||||||
|
|
||||||
puts $fd ""
|
|
||||||
puts $fd "PIP Report for tile $tile"
|
|
||||||
puts $fd "==================================="
|
|
||||||
|
|
||||||
puts $fd ""
|
|
||||||
puts $fd "PIPs that implement 1:1 connections"
|
|
||||||
puts $fd "-----------------------------------"
|
|
||||||
|
|
||||||
foreach dst $dsts {
|
|
||||||
set dst_node [get_node -of_objects $dst]
|
|
||||||
set dst_span [llength [get_tiles -of_objects $dst_node]]
|
|
||||||
set pips [get_pips -filter "TILE == $tile" -uphill -of_objects $dst_node]
|
|
||||||
if {[llength $pips] == 1} {
|
|
||||||
puts $fd ""
|
|
||||||
puts $fd "Destination Wire (Node, Span): $dst ($dst_node, $dst_span)"
|
|
||||||
foreach pip $pips {
|
|
||||||
set src [get_wires -uphill -of_objects $pip]
|
|
||||||
set src_node [get_node -of_objects $src]
|
|
||||||
set src_span [llength [get_tiles -of_objects $src_node]]
|
|
||||||
puts $fd " Source Wire (Node, Span): $src ($src_node, $src_span) via $pip"
|
|
||||||
}
|
|
||||||
foreach pip [get_pips -quiet -filter "TILE != $tile" -uphill -of_objects $dst_node] {
|
|
||||||
puts $fd " Outside Source PIP: $pip"
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
puts $fd ""
|
|
||||||
puts $fd "PIPs that implement N:1 connections"
|
|
||||||
puts $fd "-----------------------------------"
|
|
||||||
|
|
||||||
foreach dst $dsts {
|
|
||||||
set dst_node [get_node -of_objects $dst]
|
|
||||||
set dst_span [llength [get_tiles -of_objects $dst_node]]
|
|
||||||
set pips [get_pips -filter "TILE == $tile" -uphill -of_objects $dst_node]
|
|
||||||
if {[llength $pips] != 1} {
|
|
||||||
puts $fd ""
|
|
||||||
puts $fd "Destination Wire (Node, Span): $dst ($dst_node, $dst_span)"
|
|
||||||
foreach pip $pips {
|
|
||||||
set src [get_wires -uphill -of_objects $pip]
|
|
||||||
set src_node [get_node -of_objects $src]
|
|
||||||
set src_span [llength [get_tiles -of_objects $src_node]]
|
|
||||||
puts $fd " Source Wire (Node, Span): $src ($src_node, $src_span) via $pip"
|
|
||||||
}
|
|
||||||
foreach pip [get_pips -quiet -filter "TILE != $tile" -uphill -of_objects $dst_node] {
|
|
||||||
puts $fd " Outside Source PIP: $pip"
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
puts $fd ""
|
|
||||||
puts $fd ""
|
|
||||||
}
|
|
||||||
|
|
||||||
tile_pip_report [open "CLBLL_L_X12Y119.txt" w] CLBLL_L_X12Y119
|
|
||||||
tile_pip_report [open "INT_L_X12Y119.txt" w] INT_L_X12Y119
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,22 @@
|
||||||
|
|
||||||
proc route_via {net nodes} {
|
proc route_via {net nodes} {
|
||||||
# FIXME
|
set net [get_nets $net]
|
||||||
|
set fixed_route [get_nodes -of_objects [get_site_pins -filter {DIRECTION == OUT} -of_objects $net]]
|
||||||
|
|
||||||
|
set nodes [get_nodes $nodes]
|
||||||
|
lappend nodes [get_nodes -of_objects [get_site_pins -filter {DIRECTION == IN} -of_objects $net]]
|
||||||
|
|
||||||
|
foreach to_node $nodes {
|
||||||
|
set from_node [lindex $fixed_route end]
|
||||||
|
set route [find_routing_path -quiet -from $from_node -to $to_node]
|
||||||
|
if {$route == ""} {
|
||||||
|
lappend fixed_route $to_node
|
||||||
|
} {
|
||||||
|
set fixed_route [concat $fixed_route [lrange $route 1 end]]
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
set_property FIXED_ROUTE $fixed_route $net
|
||||||
}
|
}
|
||||||
|
|
||||||
proc putl {lst} {
|
proc putl {lst} {
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue