diff options
| author | davygrvy <davygrvy@pobox.com> | 2004-10-27 17:13:58 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2004-10-27 17:13:58 (GMT) |
| commit | ae40e74a872262866a65b2bdbe48cfd49bfe7a61 (patch) | |
| tree | d38e2e996f76b486c2c2fb432f57ca4fececc7e2 /generic/tclStubInit.c | |
| parent | bbf8d929edc48523f1dbbb816c26ccc93a57518f (diff) | |
| download | tcl-ae40e74a872262866a65b2bdbe48cfd49bfe7a61.zip tcl-ae40e74a872262866a65b2bdbe48cfd49bfe7a61.tar.gz tcl-ae40e74a872262866a65b2bdbe48cfd49bfe7a61.tar.bz2 | |
* generic/tclInt.decls: The following 9 functions were moved from
* generic/tclInt.h: tclInt.h to the internal Stubs table for
* generic/tclIntDecls.h: use by the test suite. As tclTest.obj is
* generic/tclStubInit.c: linked to the shell, these functions need
"blessed" status so as to always be exported from the library. Being
placed in the Stubs table guarantees this [Bug 1054748]:
TclpObjRemoveDirectory, TclpObjCopyDirectory,
TclpObjCreateDirectory, TclpObjDeleteFile,
TclpObjCopyFile, TclpObjRenameFile,
TclpObjStat, TclpObjAccess,
TclpOpenFileChannel
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index de789c6..36b7247 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStubInit.c,v 1.105 2004/10/14 15:06:03 dkf Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.106 2004/10/27 17:13:58 davygrvy Exp $ */ #include "tclInt.h" @@ -284,6 +284,15 @@ TclIntStubs tclIntStubs = { TclCompEvalObj, /* 197 */ TclObjGetFrame, /* 198 */ TclMatchIsTrivial, /* 199 */ + TclpObjRemoveDirectory, /* 200 */ + TclpObjCopyDirectory, /* 201 */ + TclpObjCreateDirectory, /* 202 */ + TclpObjDeleteFile, /* 203 */ + TclpObjCopyFile, /* 204 */ + TclpObjRenameFile, /* 205 */ + TclpObjStat, /* 206 */ + TclpObjAccess, /* 207 */ + TclpOpenFileChannel, /* 208 */ }; TclIntPlatStubs tclIntPlatStubs = { |