luke
/
magic
mirror of https://github.com/RTimothyEdwards/magic.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Applied a patch by Matt Guthaus to a routine in the readspice 

annotation script, that moves a block of code making a list of
all labels outside of an inner loop where it causes a huge slowdown.
This commit is contained in:
Tim Edwards 2020-11-12 16:46:51 -05:00
parent cd3d765f9d
commit 6d009682bc
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tcltk/readspice.tcl
View File

@ -124,6 +124,12 @@ proc readspice {netfile} {
set p $p1 set p $p1
} }
# Get the complete set of labels in the top cell and make a list
select top cell
select area labels
set all [lindex [what -list] 1]
select clear
foreach pin [lrange $ftokens 2 end] { foreach pin [lrange $ftokens 2 end] {
# If "=" is in the name, then we have finished the pins # If "=" is in the name, then we have finished the pins
# and are looking at parameters, and so parsing is done. # and are looking at parameters, and so parsing is done.
@ -173,10 +179,6 @@ proc readspice {netfile} {
# port name. If so, convert it into a port # port name. If so, convert it into a port
if {$pinidx == ""} { if {$pinidx == ""} {
select top cell
select area labels
set all [lindex [what -list] 1]
select clear
foreach labrec $all { foreach labrec $all {
set testpin [lindex $labrec 0] set testpin [lindex $labrec 0]
if {[string tolower $testpin] == [string tolower $pin]} { if {[string tolower $testpin] == [string tolower $pin]} {