diff options
author | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-10-23 21:50:49 (GMT) |
---|---|---|
committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-10-23 21:50:49 (GMT) |
commit | 2f4a7e403d2cfc2664775ce62f78e2867222f93b (patch) | |
tree | 5c9ef484f31fe996558b26c4791947245829a42a /generic/tclLoadNone.c | |
parent | c5939e8632be11654a11cd7699fbc64ce1ca32c1 (diff) | |
parent | eca6f20ce028c63736def87168c4012b54d7883f (diff) | |
download | tcl-2f4a7e403d2cfc2664775ce62f78e2867222f93b.zip tcl-2f4a7e403d2cfc2664775ce62f78e2867222f93b.tar.gz tcl-2f4a7e403d2cfc2664775ce62f78e2867222f93b.tar.bz2 |
Add "flags" parameter from Tcl_LoadFile to to various internal functions, so these flags are available through the whole filesystem for (future) internal use
FossilOrigin-Name: 4d417791c966021f292dd5e08a2a441c449b1803
Diffstat (limited to 'generic/tclLoadNone.c')
-rw-r--r-- | generic/tclLoadNone.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclLoadNone.c b/generic/tclLoadNone.c index 6b48aee..f030d89 100644 --- a/generic/tclLoadNone.c +++ b/generic/tclLoadNone.c @@ -39,10 +39,11 @@ TclpDlopen( Tcl_LoadHandle *loadHandle, /* Filled with token for dynamically loaded * file which will be passed back to * (*unloadProcPtr)() to unload the file. */ - Tcl_FSUnloadFileProc **unloadProcPtr) + Tcl_FSUnloadFileProc **unloadProcPtr, /* Filled with address of Tcl_FSUnloadFileProc * function which should be used for this * file. */ + int flags) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "dynamic loading is not currently available on this system", |