diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-29 13:28:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-29 13:28:32 (GMT) |
| commit | 4187ab8e37b22866a8b3a8727b9d661bca6378c8 (patch) | |
| tree | adefcd33b5268f2e85014860b1f8aca78237da6c /generic/tclTest.c | |
| parent | 4796062aab8a24df621cf33dbe862f72b36986f8 (diff) | |
| parent | a812c806619d185a0f16bfa431b848006ba98044 (diff) | |
| download | tcl-4187ab8e37b22866a8b3a8727b9d661bca6378c8.zip tcl-4187ab8e37b22866a8b3a8727b9d661bca6378c8.tar.gz tcl-4187ab8e37b22866a8b3a8727b9d661bca6378c8.tar.bz2 | |
Merge tip-548
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 582b8c3..f87698c 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -219,6 +219,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[]); @@ -595,6 +598,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, @@ -1035,6 +1040,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; +} + /* *---------------------------------------------------------------------- * |