summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordavygrvy <davygrvy@pobox.com>2002-01-21 22:47:52 (GMT)
committerdavygrvy <davygrvy@pobox.com>2002-01-21 22:47:52 (GMT)
commit1333f6d820152ee563a9bfc89b3f156c56a994f6 (patch)
tree5ecd0cd68108f558a0396552ef83f9e34263ca1f
parent1931a032a5696b8b77b01bc4865c5016133ec015 (diff)
downloadtcl-1333f6d820152ee563a9bfc89b3f156c56a994f6.zip
tcl-1333f6d820152ee563a9bfc89b3f156c56a994f6.tar.gz
tcl-1333f6d820152ee563a9bfc89b3f156c56a994f6.tar.bz2
TclpLoadFile() didn't match proto of typedef Tcl_FSLoadFileProc. [Patch #502488]
-rw-r--r--generic/tclLoadNone.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclLoadNone.c b/generic/tclLoadNone.c
index 0f2c8ed..ee79130 100644
--- a/generic/tclLoadNone.c
+++ b/generic/tclLoadNone.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclLoadNone.c,v 1.7 2002/01/09 19:09:28 kennykb Exp $
+ * RCS: @(#) $Id: tclLoadNone.c,v 1.8 2002/01/21 22:47:52 davygrvy Exp $
*/
#include "tclInt.h"
@@ -35,7 +35,7 @@
*/
int
-TclpLoadFile(interp, pathPtr, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr)
+TclpLoadFile(interp, pathPtr, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr, unloadProcPtr)
Tcl_Interp *interp; /* Used for error reporting. */
Tcl_Obj *pathPtr; /* Name of the file containing the desired
* code. */
@@ -47,6 +47,7 @@ TclpLoadFile(interp, pathPtr, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr)
ClientData *clientDataPtr; /* Filled with token for dynamically loaded
* file which will be passed back to
* TclpUnloadFile() to unload the file. */
+ Tcl_FSUnloadFileProc **unloadProcPtr;
{
Tcl_SetResult(interp,
"dynamic loading is not currently available on this system",