Add static qualifier to StaTclTypes.i helpers

This commit is contained in:
Martin Povišer 2024-07-31 01:03:44 +02:00
parent f4fe607b17
commit 697231bbcf
1 changed files with 7 additions and 7 deletions

View File

@ -192,7 +192,7 @@ tclListNetworkSet1(Tcl_Obj *const source,
return set; return set;
} }
StringSet * static StringSet *
tclListSetConstChar(Tcl_Obj *const source, tclListSetConstChar(Tcl_Obj *const source,
Tcl_Interp *interp) Tcl_Interp *interp)
{ {
@ -212,7 +212,7 @@ tclListSetConstChar(Tcl_Obj *const source,
return nullptr; return nullptr;
} }
StringSeq * static StringSeq *
tclListSeqConstChar(Tcl_Obj *const source, tclListSeqConstChar(Tcl_Obj *const source,
Tcl_Interp *interp) Tcl_Interp *interp)
{ {
@ -232,7 +232,7 @@ tclListSeqConstChar(Tcl_Obj *const source,
return nullptr; return nullptr;
} }
StdStringSet * static StdStringSet *
tclListSetStdString(Tcl_Obj *const source, tclListSetStdString(Tcl_Obj *const source,
Tcl_Interp *interp) Tcl_Interp *interp)
{ {
@ -317,7 +317,7 @@ setPtrTclList(SET_TYPE *set,
//////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////
void static void
tclArgError(Tcl_Interp *interp, tclArgError(Tcl_Interp *interp,
const char *msg, const char *msg,
const char *arg) const char *arg)
@ -330,7 +330,7 @@ tclArgError(Tcl_Interp *interp,
stringDelete(error); stringDelete(error);
} }
void static void
objectListNext(const char *list, objectListNext(const char *list,
const char *type, const char *type,
// Return values. // Return values.
@ -366,7 +366,7 @@ objectListNext(const char *list,
} }
} }
Tcl_Obj * static Tcl_Obj *
tclArcDcalcArg(ArcDcalcArg &gate, tclArcDcalcArg(ArcDcalcArg &gate,
Tcl_Interp *interp) Tcl_Interp *interp)
{ {
@ -405,7 +405,7 @@ tclArcDcalcArg(ArcDcalcArg &gate,
return list; return list;
} }
ArcDcalcArg static ArcDcalcArg
arcDcalcArgTcl(Tcl_Obj *obj, arcDcalcArgTcl(Tcl_Obj *obj,
Tcl_Interp *interp) Tcl_Interp *interp)
{ {