Permalink
Browse files
Only gather subports' deps once
- Loading branch information
Showing
with
3 additions
and
1 deletion.
-
+3
−1
tools/sort-with-subports.tcl
|
|
@@ -100,7 +100,9 @@ while {$todo ne {}} { |
|
|
if {[info exists inputports($p)] && [info exists portinfo(subports)]} { |
|
|
foreach subport $portinfo(subports) { |
|
|
set splower [string tolower $subport] |
|
|
lappend todo $splower |
|
|
if {![info exists portdepinfo($splower)]} { |
|
|
lappend todo $splower |
|
|
} |
|
|
set outputports($splower) 1 |
|
|
} |
|
|
} |
|
|
|