diff options
author | dgp <dgp@noemail.net> | 2002-01-09 17:50:55 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2002-01-09 17:50:55 (GMT) |
commit | 7afdbdc15a01dc107875305b5e7633f206d66906 (patch) | |
tree | 8d05d7dab01a5821a33f04aca19ce4af3d4b0bd2 /generic/tclTest.c | |
parent | dfeff88aa78ff5adfc09ab9a0eb08e2ab7367d5c (diff) | |
download | tcl-7afdbdc15a01dc107875305b5e7633f206d66906.zip tcl-7afdbdc15a01dc107875305b5e7633f206d66906.tar.gz tcl-7afdbdc15a01dc107875305b5e7633f206d66906.tar.bz2 |
* generic/tclTest.c (MainLoop):
* tests/main.test (Tcl_Main-1.{3,4,5,6}): Corrected some non-portable
tests from the new Tcl_Main changes. Thanks to Kevin Kenny.
FossilOrigin-Name: 3435db0ae475099100f32ab029a96ae81454df78
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r-- | generic/tclTest.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 2b977f2..b2a1af2 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTest.c,v 1.35 2002/01/05 22:55:52 dgp Exp $ + * RCS: @(#) $Id: tclTest.c,v 1.36 2002/01/09 17:50:56 dgp Exp $ */ #define TCL_TEST @@ -162,6 +162,7 @@ static void ExitProcEven _ANSI_ARGS_((ClientData clientData)); static void ExitProcOdd _ANSI_ARGS_((ClientData clientData)); static int GetTimesCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int argc, char **argv)); +static void MainLoop _ANSI_ARGS_((void)); static int NoopCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int argc, char **argv)); static int NoopObjCmd _ANSI_ARGS_((ClientData clientData, |