diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-28 14:38:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-28 14:38:46 (GMT) |
| commit | a812c806619d185a0f16bfa431b848006ba98044 (patch) | |
| tree | 4870e029c9a9605d74b975bc9149229d9919d7be /generic/tclTest.c | |
| parent | 85a07c9ee77ce7896b939d10317de1449be880e2 (diff) | |
| parent | da423a1424e34834a64c209244ef64ca7c275f7d (diff) | |
| download | tcl-a812c806619d185a0f16bfa431b848006ba98044.zip tcl-a812c806619d185a0f16bfa431b848006ba98044.tar.gz tcl-a812c806619d185a0f16bfa431b848006ba98044.tar.bz2 | |
Merge 8.7
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; +} + /* *---------------------------------------------------------------------- * |