Add static qualifier to StaTclTypes.i helpers

andyfox-rushc · Jul 30, 2024 · 697231b · 697231b
1 parent f4fe607
commit 697231b
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/tcl/StaTclTypes.i b/tcl/StaTclTypes.i
@@ -192,7 +192,7 @@ tclListNetworkSet1(Tcl_Obj *const source,
   return set;
 }
 
-StringSet *
+static StringSet *
 tclListSetConstChar(Tcl_Obj *const source,
 		    Tcl_Interp *interp)
 {
@@ -212,7 +212,7 @@ tclListSetConstChar(Tcl_Obj *const source,
     return nullptr;
 }
 
-StringSeq *
+static StringSeq *
 tclListSeqConstChar(Tcl_Obj *const source,
 		    Tcl_Interp *interp)
 {
@@ -232,7 +232,7 @@ tclListSeqConstChar(Tcl_Obj *const source,
     return nullptr;
 }
 
-StdStringSet *
+static StdStringSet *
 tclListSetStdString(Tcl_Obj *const source,
 		    Tcl_Interp *interp)
 {
@@ -317,7 +317,7 @@ setPtrTclList(SET_TYPE *set,
 
 ////////////////////////////////////////////////////////////////
 
-void
+static void
 tclArgError(Tcl_Interp *interp,
             const char *msg,
             const char *arg)
@@ -330,7 +330,7 @@ tclArgError(Tcl_Interp *interp,
   stringDelete(error);
 }
 
-void
+static void
 objectListNext(const char *list,
 	       const char *type,
 	       // Return values.
@@ -366,7 +366,7 @@ objectListNext(const char *list,
   }
 }
 
-Tcl_Obj *
+static Tcl_Obj *
 tclArcDcalcArg(ArcDcalcArg &gate,
                Tcl_Interp *interp)
 {
@@ -405,7 +405,7 @@ tclArcDcalcArg(ArcDcalcArg &gate,
   return list;
 }
 
-ArcDcalcArg
+static ArcDcalcArg
 arcDcalcArgTcl(Tcl_Obj *obj,
                Tcl_Interp *interp)
 {