Since TIP 258 (2005) and development efforts leading up to it (2004), the

Tcltest package has not been a caller of routines Tcl(Get|Set)LibraryPath,
so there's no longer a need for those to be in the internal stubs table.

After they are removed from the table, they no longer need to exist at all.

1 files changed, 1 insertions, 47 deletions

diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c
index e461db2..b441bf63 100644
--- a/generic/tclEncoding.c
+++ b/generic/tclEncoding.c
@@ -409,52 +409,6 @@ Tcl_SetEncodingSearchPath(
 }
 
 /*
- *----------------------------------------------------------------------
- *
- * TclGetLibraryPath --
- *
- *	Keeps the per-thread copy of the library path current with changes to
- *	the global copy.
- *
- * Results:
- *	Returns a "list" (Tcl_Obj *) that contains the library path.
- *
- *----------------------------------------------------------------------
- */
-
-Tcl_Obj *
-TclGetLibraryPath(void)
-{
-    return TclGetProcessGlobalValue(&libraryPath);
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * TclSetLibraryPath --
- *
- *	Keeps the per-thread copy of the library path current with changes to
- *	the global copy.
- *
- *	Since the result of this routine is void, if searchPath is not a valid
- *	list this routine silently does nothing.
- *
- *----------------------------------------------------------------------
- */
-
-void
-TclSetLibraryPath(
-    Tcl_Obj *path)
-{
-    Tcl_Size dummy;
-
-    if (TCL_ERROR == TclListObjLengthM(NULL, path, &dummy)) {
-	return;
-    }
-    TclSetProcessGlobalValue(&libraryPath, path, NULL);
-}
-
-/*
  *---------------------------------------------------------------------------
  *
  * FillEncodingFileMap --
@@ -4382,7 +4336,7 @@ InitializeEncodingSearchPath(
     TclNewObj(searchPathObj);
     Tcl_IncrRefCount(encodingObj);
     Tcl_IncrRefCount(searchPathObj);
-    libPathObj = TclGetLibraryPath();
+    libPathObj = TclGetProcessGlobalValue(&libraryPath);
     Tcl_IncrRefCount(libPathObj);
     TclListObjLengthM(NULL, libPathObj, &numDirs);