diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2002-07-17 18:21:53 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2002-07-17 18:21:53 (GMT) |
| commit | 023276a9b9bbb4085068a13aafc1ed53f72ea197 (patch) | |
| tree | e51d5d4dbb02babd0b3776e7d1e1d0f8d70c9a8c /generic/tclStubInit.c | |
| parent | 3c26f7d2cb401292666bdb968313497537a8301b (diff) | |
| download | tcl-023276a9b9bbb4085068a13aafc1ed53f72ea197.zip tcl-023276a9b9bbb4085068a13aafc1ed53f72ea197.tar.gz tcl-023276a9b9bbb4085068a13aafc1ed53f72ea197.tar.bz2 | |
removing the now redundant functions Tcl(Get|Set|Incr)IndexedScalar()
and Tcl(Get|Set|Incr)ElementOfIndexedArray()
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index ef55072..eb9480b 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.72 2002/06/17 22:52:51 hobbs Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.73 2002/07/17 18:21:55 msofer Exp $ */ #include "tclInt.h" @@ -92,13 +92,13 @@ TclIntStubs tclIntStubs = { NULL, /* 26 */ TclGetDate, /* 27 */ TclpGetDefaultStdChannel, /* 28 */ - TclGetElementOfIndexedArray, /* 29 */ + NULL, /* 29 */ NULL, /* 30 */ TclGetExtension, /* 31 */ TclGetFrame, /* 32 */ TclGetInterpProc, /* 33 */ TclGetIntForIndex, /* 34 */ - TclGetIndexedScalar, /* 35 */ + NULL, /* 35 */ TclGetLong, /* 36 */ TclGetLoadedPackages, /* 37 */ TclGetNamespaceForQualName, /* 38 */ @@ -110,8 +110,8 @@ TclIntStubs tclIntStubs = { TclGuessPackageName, /* 44 */ TclHideUnsafeCommands, /* 45 */ TclInExit, /* 46 */ - TclIncrElementOfIndexedArray, /* 47 */ - TclIncrIndexedScalar, /* 48 */ + NULL, /* 47 */ + NULL, /* 48 */ TclIncrVar2, /* 49 */ TclInitCompiledLocals, /* 50 */ TclInterpInit, /* 51 */ @@ -162,8 +162,8 @@ TclIntStubs tclIntStubs = { TclRenameCommand, /* 96 */ TclResetShadowedCmdRefs, /* 97 */ TclServiceIdle, /* 98 */ - TclSetElementOfIndexedArray, /* 99 */ - TclSetIndexedScalar, /* 100 */ + NULL, /* 99 */ + NULL, /* 100 */ #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ TclSetPreInitScript, /* 101 */ #endif /* UNIX */ |