From c99e632744e60253b9360ab19a86a9ae429360ed Mon Sep 17 00:00:00 2001
From: Tim Edwards <tim@opencircuitdesign.com>
Date: Wed, 3 Mar 2021 11:39:35 -0500
Subject: [PATCH] Modification of readspice.tcl script to work around issue if
 no ports are found (i.e., "port first" returns nothing, instead of a number).

---
 VERSION             | 2 +-
 tcltk/readspice.tcl | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/VERSION b/VERSION
index 22d3bd1e..c42d948e 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-8.3.135
+8.3.136
diff --git a/tcltk/readspice.tcl b/tcltk/readspice.tcl
index 058185e0..6ddf8345 100644
--- a/tcltk/readspice.tcl
+++ b/tcltk/readspice.tcl
@@ -115,6 +115,10 @@ proc readspice {netfile} {
 	       if {$outport < $npins} {set outport $npins}
 	       set p [port first]
 	       while {$p != -1 && $p <= $highport} {
+		   if {$p == ""} {
+		       puts stderr "Error:  $cellname port numbering failed."
+		       break
+		   }
 		   set p1 [port $p next]
 		   set testpin [port $p name]
 		   if {$testpin != ""} {