diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-08-27 18:33:44 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-08-27 18:33:44 (GMT) |
| commit | 478e248339265d65360a9ad85ae239fec700f6a3 (patch) | |
| tree | 08707b8c4250da65cc2c17fb88be3e9f5b565352 /generic/tclTest.c | |
| parent | dfcc35136af7f9e3271eabc2da65c024e3a2e9a5 (diff) | |
| parent | aab801db76cd9d4f54a978ebbd1eed7a0ee05c4a (diff) | |
| download | tcl-478e248339265d65360a9ad85ae239fec700f6a3.zip tcl-478e248339265d65360a9ad85ae239fec700f6a3.tar.gz tcl-478e248339265d65360a9ad85ae239fec700f6a3.tar.bz2 | |
merge 8.6
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index b365bd9..bfaaf56 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -220,6 +220,9 @@ static void SpecialFree(char *blockPtr); static int StaticInitProc(Tcl_Interp *interp); static int TestasyncCmd(void *dummy, Tcl_Interp *interp, int argc, const char **argv); +static int TestbumpinterpepochObjCmd(ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *const objv[]); static int TestbytestringObjCmd(void *clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); @@ -596,6 +599,8 @@ Tcltest_Init( Tcl_CreateObjCommand(interp, "testgetindexfromobjstruct", TestGetIndexFromObjStructObjCmd, NULL, NULL); Tcl_CreateCommand(interp, "testasync", TestasyncCmd, NULL, NULL); + Tcl_CreateObjCommand(interp, "testbumpinterpepoch", + TestbumpinterpepochObjCmd, NULL, NULL); Tcl_CreateCommand(interp, "testchannel", TestChannelCmd, NULL, NULL); Tcl_CreateCommand(interp, "testchannelevent", TestChannelEventCmd, @@ -1036,6 +1041,22 @@ AsyncThreadProc( } #endif +static int +TestbumpinterpepochObjCmd( + ClientData dummy, /* Not used. */ + Tcl_Interp *interp, /* Current interpreter. */ + int objc, /* Number of arguments. */ + Tcl_Obj *const objv[]) /* Argument objects. */ +{ + Interp *iPtr = (Interp *)interp; + if (objc != 1) { + Tcl_WrongNumArgs(interp, 1, objv, ""); + return TCL_ERROR; + } + iPtr->compileEpoch++; + return TCL_OK; +} + /* *---------------------------------------------------------------------- * |