diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2004-03-05 16:36:55 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2004-03-05 16:36:55 (GMT) |
| commit | fa8f49ab70630204d6304b58030e484d9a3442a0 (patch) | |
| tree | 34ad82e4789007f161b52a46cbe13b2d443f2473 /generic/tclTest.c | |
| parent | 6d8a109cfb797dac0e929359fa6702223170c62f (diff) | |
| download | tcl-fa8f49ab70630204d6304b58030e484d9a3442a0.zip tcl-fa8f49ab70630204d6304b58030e484d9a3442a0.tar.gz tcl-fa8f49ab70630204d6304b58030e484d9a3442a0.tar.bz2 | |
* generic/tclTest.c: Modified TesteventObjCmd to use
a Tcl_QueuePosition in place of an 'int' for the enumerated
queue position, to avoid a compiler warning on SGI.
(Bug #771960).
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 473cb21..d29c132 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -14,7 +14,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.77 2004/03/01 17:33:45 dgp Exp $ + * RCS: @(#) $Id: tclTest.c,v 1.78 2004/03/05 16:36:56 kennykb Exp $ */ #define TCL_TEST @@ -2056,7 +2056,8 @@ TesteventObjCmd( ClientData unused, /* Not used */ NULL }; int posIndex; /* Index of the chosen position */ - static CONST int posNum[] = { /* Interpretation of the chosen position */ + static CONST Tcl_QueuePosition posNum[] = { + /* Interpretation of the chosen position */ TCL_QUEUE_HEAD, TCL_QUEUE_TAIL, TCL_QUEUE_MARK |