diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-10-23 21:45:51 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-10-23 21:45:51 (GMT) |
commit | 7927604b9490feecc8f9e5331b8e6e2cb5005b19 (patch) | |
tree | 8f58611b4ea988c95d8a9bc58ba94ea3fd287e95 /generic/tclIOUtil.c | |
parent | 495bfd5d18ba4c3c11903d8a4f551c4dc64f2aab (diff) | |
download | tcl-7927604b9490feecc8f9e5331b8e6e2cb5005b19.zip tcl-7927604b9490feecc8f9e5331b8e6e2cb5005b19.tar.gz tcl-7927604b9490feecc8f9e5331b8e6e2cb5005b19.tar.bz2 |
Remove unused TclpLoadFile function.
Diffstat (limited to 'generic/tclIOUtil.c')
-rw-r--r-- | generic/tclIOUtil.c | 43 |
1 files changed, 0 insertions, 43 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; -} /* *--------------------------------------------------------------------------- |