Commit b3c26d94 authored by Christopher Alfeld's avatar Christopher Alfeld
Browse files

Made a minor "fix" so that the /virtual/links entry in the IR is now in

a more "intuitive" order when there are delay nodes.  I.e.:

<src> <delay-ifc1> <delay-ifc2> <dst>

This is needed by the new version of tbreport.tcl and previously wasn't
always the case.
parent 41102334
......@@ -206,11 +206,45 @@ foreach link [array names plinks] {
lappend pls $element
}
set name [get_link_name $link]
if {! [info exists linktmp($name)]} {
set linktmp($name) {}
}
foreach l $pls {
lappend linktmp($name) $l
}
}
proc node_name {s} {
return [lindex [split $s -] 0]
}
foreach link [array names linktmp] {
# Any "duplicates" should go together.
# RULES: Can only swap a and b or c and d (i.e. within a link)
# This will only happen in the case of a delay node which will
# have four elements (two links of src/dst), we just check every
# case.
if {[llength $linktmp($link)] == 4} {
set a [lindex $linktmp($link) 0]
set b [lindex $linktmp($link) 1]
set c [lindex $linktmp($link) 2]
set d [lindex $linktmp($link) 3]
if {[node_name $b] == [node_name $d]} {
set tmp $d
set d $c
set c $tmp
} elseif {[node_name $a] == [node_name $c]} {
set tmp $b
set b $a
set a $tmp
} elseif {[node_name $a] == [node_name $d]} {
set tmp $b
set b $a
set a $tmp
set tmp $d
set d $c
set c $tmp
}
set linktmp($link) [list $a $b $c $d]
}
puts $fp "$link $linktmp($link)"
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment