Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | 3423069 silence compiler warnings. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
d6b80e8cf1a1b439e24db4d4aa8eddc6 |
| User & Date: | dgp 2011-10-13 18:02:27 |
Context
|
2011-10-13
| ||
| 18:10 | 3423059 silence compiler warning check-in: d287fac6bb user: dgp tags: trunk | |
| 18:02 | 3423069 silence compiler warnings. check-in: d6b80e8cf1 user: dgp tags: trunk | |
| 08:02 | revert test-case change for [Bug 2935503] check-in: fb6eac342d user: jan.nijtmans tags: trunk | |
Changes
Changes to generic/tclTest.c.
| ︙ | ︙ | |||
71 72 73 74 75 76 77 |
Tcl_AsyncHandler handler; /* Tcl's token for the handler. */
char *command; /* Command to invoke when the handler is
* invoked. */
struct TestAsyncHandler *nextPtr;
/* Next is list of handlers. */
} TestAsyncHandler;
| | | 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 |
Tcl_AsyncHandler handler; /* Tcl's token for the handler. */
char *command; /* Command to invoke when the handler is
* invoked. */
struct TestAsyncHandler *nextPtr;
/* Next is list of handlers. */
} TestAsyncHandler;
TCL_DECLARE_MUTEX(asyncTestMutex)
static TestAsyncHandler *firstHandler = NULL;
/*
* The dynamic string below is used by the "testdstring" command to test the
* dynamic string facilities.
*/
|
| ︙ | ︙ | |||
7105 7106 7107 7108 7109 7110 7111 |
static int
TestparseargsCmd(
ClientData dummy, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
int objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Arguments. */
{
| > | | 7105 7106 7107 7108 7109 7110 7111 7112 7113 7114 7115 7116 7117 7118 7119 7120 |
static int
TestparseargsCmd(
ClientData dummy, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
int objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Arguments. */
{
static int foo = 0;
int count = objc;
Tcl_Obj **remObjv, *result[3];
Tcl_ArgvInfo argTable[] = {
{TCL_ARGV_CONSTANT, "-bool", INT2PTR(1), &foo, "booltest", NULL},
TCL_ARGV_AUTO_REST, TCL_ARGV_AUTO_HELP, TCL_ARGV_TABLE_END
};
if (Tcl_ParseArgsObjv(interp, argTable, &count, objv, &remObjv)!=TCL_OK) {
|
| ︙ | ︙ |