summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-10-23 21:45:51 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-10-23 21:45:51 (GMT)
commit3d737d62cf9052d88fc73809b3e3104e047f992f (patch)
tree8f58611b4ea988c95d8a9bc58ba94ea3fd287e95 /generic
parentbd2bdd6f8a4571b486ba30fbf686af3eb82ee6bc (diff)
downloadtcl-3d737d62cf9052d88fc73809b3e3104e047f992f.zip
tcl-3d737d62cf9052d88fc73809b3e3104e047f992f.tar.gz
tcl-3d737d62cf9052d88fc73809b3e3104e047f992f.tar.bz2
Remove unused TclpLoadFile function.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIOUtil.c43
-rw-r--r--generic/tclInt.h6
2 files changed, 0 insertions, 49 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 348e7bf..1e600cd 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -3438,49 +3438,6 @@ TclLoadFile(
}
return TCL_OK;
}
-/*
- * This function used to be in the platform specific directories, but it has
- * now been made to work cross-platform
- */
-
-int
-TclpLoadFile(
- Tcl_Interp *interp, /* Used for error reporting. */
- Tcl_Obj *pathPtr, /* Name of the file containing the desired
- * code (UTF-8). */
- const char *sym1, CONST char *sym2,
- /* Names of two functions to look up in the
- * file's symbol table. */
- Tcl_PackageInitProc **proc1Ptr, Tcl_PackageInitProc **proc2Ptr,
- /* Where to return the addresses corresponding
- * to sym1 and sym2. */
- ClientData *clientDataPtr, /* Filled with token for dynamically loaded
- * file which will be passed back to
- * (*unloadProcPtr)() to unload the file. */
- Tcl_FSUnloadFileProc **unloadProcPtr)
- /* Filled with address of Tcl_FSUnloadFileProc
- * function which should be used for this
- * file. */
-{
- Tcl_LoadHandle handle = NULL;
- int res;
-
- res = TclpDlopen(interp, pathPtr, &handle, unloadProcPtr);
-
- if (res != TCL_OK) {
- return res;
- }
-
- if (handle == NULL) {
- return TCL_ERROR;
- }
-
- *clientDataPtr = (ClientData) handle;
-
- *proc1Ptr = TclpFindSymbol(interp, handle, sym1);
- *proc2Ptr = TclpFindSymbol(interp, handle, sym2);
- return TCL_OK;
-}
/*
*---------------------------------------------------------------------------
diff --git a/generic/tclInt.h b/generic/tclInt.h
index cca9938..3037ddb 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -2732,12 +2732,6 @@ MODULE_SCOPE void TclpInitLibraryPath(char **valuePtr,
MODULE_SCOPE void TclpInitLock(void);
MODULE_SCOPE void TclpInitPlatform(void);
MODULE_SCOPE void TclpInitUnlock(void);
-MODULE_SCOPE int TclpLoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
- const char *sym1, const char *sym2,
- Tcl_PackageInitProc **proc1Ptr,
- Tcl_PackageInitProc **proc2Ptr,
- ClientData *clientDataPtr,
- Tcl_FSUnloadFileProc **unloadProcPtr);
MODULE_SCOPE Tcl_Obj * TclpObjListVolumes(void);
MODULE_SCOPE void TclpMasterLock(void);
MODULE_SCOPE void TclpMasterUnlock(void);