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

Modification of readspice.tcl script to work around issue if no ports 

are found (i.e., "port first" returns nothing, instead of a number).
This commit is contained in:
Tim Edwards 2021-03-03 11:39:35 -05:00
parent e4bebffeb4
commit c99e632744
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
VERSION
View File

@ -1 +1 @@
8.3.135 8.3.136

4
tcltk/readspice.tcl
View File

@ -115,6 +115,10 @@ proc readspice {netfile} {
if {$outport < $npins} {set outport $npins} if {$outport < $npins} {set outport $npins}
set p [port first] set p [port first]
while {$p != -1 && $p <= $highport} { while {$p != -1 && $p <= $highport} {
if {$p == ""} {
puts stderr "Error: $cellname port numbering failed."
break
}
set p1 [port $p next] set p1 [port $p next]
set testpin [port $p name] set testpin [port $p name]
if {$testpin != ""} { if {$testpin != ""} {