diff options
| author | dkf <dkf@noemail.net> | 2009-07-15 13:17:16 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2009-07-15 13:17:16 (GMT) |
| commit | 50110cab6cb49be574d52f3dd827c06cca7cdc49 (patch) | |
| tree | 30dfc00e40cfadd30723fb7fcb13abc429ddb8b1 /generic/tclStubInit.c | |
| parent | 7c3dbd34f6f6784cab84fc17af574fc24b22e7d7 (diff) | |
| download | tcl-50110cab6cb49be574d52f3dd827c06cca7cdc49.zip tcl-50110cab6cb49be574d52f3dd827c06cca7cdc49.tar.gz tcl-50110cab6cb49be574d52f3dd827c06cca7cdc49.tar.bz2 | |
Added code to save space in namespaces. Currently #ifdef'ed out for compat.
Also added code from itcl-ng for better separation of concerns.
FossilOrigin-Name: 518b8a92e083149d15d0045b0931240c85452db7
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 9241677..d80c19a 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.182 2009/06/30 00:56:08 das Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.183 2009/07/15 13:17:19 dkf Exp $ */ #include "tclInt.h" @@ -290,6 +290,10 @@ static const TclIntStubs tclIntStubs = { TclNREvalObjEx, /* 241 */ TclNREvalObjv, /* 242 */ TclDbDumpActiveObjects, /* 243 */ + TclGetNamespaceChildTable, /* 244 */ + TclGetNamespaceCommandTable, /* 245 */ + TclInitRewriteEnsemble, /* 246 */ + TclResetRewriteEnsemble, /* 247 */ }; static const TclIntPlatStubs tclIntPlatStubs = { |