diff options
| author | dgp <dgp@users.sourceforge.net> | 2005-10-08 14:42:44 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2005-10-08 14:42:44 (GMT) |
| commit | 76faac0f28fe9661f23ff9e35f44df1d899420e5 (patch) | |
| tree | 7e3de1d0523d70328cfd81d9864b897058823d34 /generic/tclStubInit.c | |
| parent | 98a6fcad96289a40b501fbd2095387a245fd804d (diff) | |
| download | tcl-76faac0f28fe9661f23ff9e35f44df1d899420e5.zip tcl-76faac0f28fe9661f23ff9e35f44df1d899420e5.tar.gz tcl-76faac0f28fe9661f23ff9e35f44df1d899420e5.tar.bz2 | |
TIP#237 IMPLEMENTATION
[kennykb-numerics-branch] Resynchronized with the HEAD; at this
checkpoint [-rkennykb-numerics-branch-20051008], the HEAD and
kennykb-numerics-branch contain identical code.
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index b27ab3d..2b87660 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.122 2005/08/24 17:56:23 andreas_kupries Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.123 2005/10/08 14:42:45 dgp Exp $ */ #include "tclInt.h" @@ -128,7 +128,7 @@ TclIntStubs tclIntStubs = { TclInExit, /* 46 */ NULL, /* 47 */ NULL, /* 48 */ - TclIncrVar2, /* 49 */ + NULL, /* 49 */ TclInitCompiledLocals, /* 50 */ TclInterpInit, /* 51 */ NULL, /* 52 */ @@ -224,7 +224,7 @@ TclIntStubs tclIntStubs = { NULL, /* 137 */ TclGetEnv, /* 138 */ NULL, /* 139 */ - TclLooksLikeInt, /* 140 */ + NULL, /* 140 */ TclpGetCwd, /* 141 */ TclSetByteCodeFromAny, /* 142 */ TclAddLiteralObj, /* 143 */ @@ -258,7 +258,7 @@ TclIntStubs tclIntStubs = { TclCheckExecutionTraces, /* 171 */ TclInThreadExit, /* 172 */ TclUniCharMatch, /* 173 */ - TclIncrWideVar2, /* 174 */ + NULL, /* 174 */ TclCallVarTraces, /* 175 */ TclCleanupVar, /* 176 */ TclVarErrMsg, /* 177 */ @@ -982,12 +982,13 @@ TclStubs tclStubs = { Tcl_DbNewBignumObj, /* 556 */ Tcl_SetBignumObj, /* 557 */ Tcl_GetBignumFromObj, /* 558 */ - Tcl_TruncateChannel, /* 559 */ - Tcl_ChannelTruncateProc, /* 560 */ - Tcl_SetChannelErrorInterp, /* 561 */ - Tcl_GetChannelErrorInterp, /* 562 */ - Tcl_SetChannelError, /* 563 */ - Tcl_GetChannelError, /* 564 */ + Tcl_GetBignumAndClearObj, /* 559 */ + Tcl_TruncateChannel, /* 560 */ + Tcl_ChannelTruncateProc, /* 561 */ + Tcl_SetChannelErrorInterp, /* 562 */ + Tcl_GetChannelErrorInterp, /* 563 */ + Tcl_SetChannelError, /* 564 */ + Tcl_GetChannelError, /* 565 */ }; /* !END!: Do not edit above this line. */ |