Make tcl compilation work with ancient Tcl versions.

src/OpenRoad.i

@@ -17,6 +17,10 @@
 #include <thread>
 #include <vector>
 
+#if TCL_MAJOR_VERSION < 9 && !defined(Tcl_Size)
+  typedef int Tcl_Size;
+#endif
+
 ////////////////////////////////////////////////////////////////
 //
 // C++ helper functions used by the interface functions.

src/est/src/EstimateParasitics.i

@@ -17,6 +17,10 @@
 #include "db_sta/dbNetwork.hh"
 #include "ord/OpenRoad.hh"
 
+#if TCL_MAJOR_VERSION < 9 && !defined(Tcl_Size)
+  typedef int Tcl_Size;
+#endif
+
 namespace ord {
 // Defined in OpenRoad.i
 est::EstimateParasitics* getEstimateParasitics();

src/ifp/src/InitFloorplan.i

@@ -10,6 +10,10 @@
 #include "utl/Logger.h"
 #include "odb/geom.h"
 
+#if TCL_MAJOR_VERSION < 9 && !defined(Tcl_Size)
+  typedef int Tcl_Size;
+#endif
+
 // Defined by OpenRoad.i
 namespace ord {
 

src/odb/src/swig/tcl/dbtypes.i

@@ -1,6 +1,12 @@
 // SPDX-License-Identifier: BSD-3-Clause
 // Copyright (c) 2019-2025, The OpenROAD Authors
 
+%{
+#if TCL_MAJOR_VERSION < 9 && !defined(Tcl_Size)
+  typedef int Tcl_Size;
+#endif
+%}
+
 %import <std_vector.i>
 
 %template(vector_str) std::vector<std::string>;

src/options.i

@@ -4,6 +4,11 @@
 %{
 #include <map>
 #include <string>
+
+#if TCL_MAJOR_VERSION < 9 && !defined(Tcl_Size)
+  typedef int Tcl_Size;
+#endif
+
 %}
 
 %include "std_string.i"

src/pad/src/pad.i

@@ -18,6 +18,10 @@ namespace ord {
 pad::ICeWall* getICeWall();
 utl::Logger* getLogger();
 } // namespace ord
+
+#if TCL_MAJOR_VERSION < 9 && !defined(Tcl_Size)
+  typedef int Tcl_Size;
+#endif
 %}
 
 %import <std_vector.i>

src/pdn/src/PdnGen.i

@@ -19,6 +19,9 @@ utl::Logger* getLogger();
 using std::regex;
 using utl::PDN;
 
+#if TCL_MAJOR_VERSION < 9 && !defined(Tcl_Size)
+ typedef int Tcl_Size;
+#endif
 %}
 
 %import <std_vector.i>

src/ppl/src/IOPlacer.i

@@ -20,6 +20,10 @@ using ppl::PinList;
 using std::vector;
 using std::set;
 
+#if TCL_MAJOR_VERSION < 9 && !defined(Tcl_Size)
+  typedef int Tcl_Size;
+#endif
+
 template <class TYPE>
 vector<TYPE> *
 tclListStdSeq(Tcl_Obj *const source,

src/psm/src/pdnsim.i

@@ -20,6 +20,10 @@ using ord::getPDNSim;
 using psm::PDNSim;
 using sta::Scene;
 
+#if TCL_MAJOR_VERSION < 9 && !defined(Tcl_Size)
+  typedef int Tcl_Size;
+#endif
+
 %}
 
 // OpenSTA swig rules

src/utl/src/Logger.i

@@ -16,6 +16,10 @@ using utl::ToolId;
 using utl::Logger;
 using ord::getLogger;
 
+#if TCL_MAJOR_VERSION < 9 && !defined(Tcl_Size)
+  typedef int Tcl_Size;
+#endif
+
 %}
 
 %typemap(in) utl::ToolId {