Attachment "diff.txt" to
ticket [502488ffff]
added by
davygrvy
2002-01-12 03:37:22.
Index: tclLoadNone.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclLoadNone.c,v
retrieving revision 1.7
diff -c -r1.7 tclLoadNone.c
*** tclLoadNone.c 2002/01/09 19:09:28 1.7
--- tclLoadNone.c 2002/01/11 20:11:04
***************
*** 35,41 ****
*/
int
! TclpLoadFile(interp, pathPtr, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr)
Tcl_Interp *interp; /* Used for error reporting. */
Tcl_Obj *pathPtr; /* Name of the file containing the desired
* code. */
--- 35,41 ----
*/
int
! 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,52 ****
--- 47,53 ----
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",
