diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-08-27 18:27:05 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-08-27 18:27:05 (GMT) |
| commit | aab801db76cd9d4f54a978ebbd1eed7a0ee05c4a (patch) | |
| tree | 6759e19638b6df97246ea1af26ed1663c4c54c43 /generic/tclTest.c | |
| parent | 4dce06b63d5e6540b8b18a6f5c747352aa872b8a (diff) | |
| parent | cf0b9b27229540852823f29cc7cbeeaa2be4c20c (diff) | |
| download | tcl-aab801db76cd9d4f54a978ebbd1eed7a0ee05c4a.zip tcl-aab801db76cd9d4f54a978ebbd1eed7a0ee05c4a.tar.gz tcl-aab801db76cd9d4f54a978ebbd1eed7a0ee05c4a.tar.bz2 | |
closes [fa6bf38d07]: integrate bug-fa6bf38d07-v2
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 473368c..5e807d4 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(ClientData 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 TestpurebytesobjObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); @@ -584,6 +587,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, @@ -1022,6 +1027,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; +} + /* *---------------------------------------------------------------------- * |