diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-02 11:58:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-02 11:58:18 (GMT) |
| commit | 3e6987856502d7a1c873cfa9de0abc2b09924476 (patch) | |
| tree | d47b49f5576e364c5de808232dd154f650b89841 /generic/tclTest.c | |
| parent | 88eafacc822a9e546b2d075195d179e223a32296 (diff) | |
| parent | aef36bf11d4ad79a6f2e6691f132fd4c444822df (diff) | |
| download | tcl-3e6987856502d7a1c873cfa9de0abc2b09924476.zip tcl-3e6987856502d7a1c873cfa9de0abc2b09924476.tar.gz tcl-3e6987856502d7a1c873cfa9de0abc2b09924476.tar.bz2 | |
merge trunk.
tclStubLib.c: protect loading incompatible Tcl9 extensions in Tcl8
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index d69e04c..2a969eb 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -90,7 +90,7 @@ static Tcl_Trace cmdTrace; * TestdelCmd: */ -typedef struct DelCmd { +typedef struct { Tcl_Interp *interp; /* Interpreter in which command exists. */ char *deleteCmd; /* Script to execute when command is deleted. * Malloc'ed. */ @@ -101,7 +101,7 @@ typedef struct DelCmd { * command. */ -typedef struct TclEncoding { +typedef struct { Tcl_Interp *interp; char *toUtfCmd; char *fromUtfCmd; @@ -117,7 +117,7 @@ static int exitMainLoop = 0; * Event structure used in testing the event queue management procedures. */ -typedef struct TestEvent { +typedef struct { Tcl_Event header; /* Header common to all events */ Tcl_Interp *interp; /* Interpreter that will handle the event */ Tcl_Obj *command; /* Command to evaluate when the event occurs */ |