Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Correct botch. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
f0486f9bbd065570b291d528d592c9f3 |
User & Date: | dgp 2011-10-13 18:19:26 |
Context
2011-10-15
| ||
10:28 | Update to Olson's tzdata2011l check-in: 95db49a59b user: venkat tags: trunk | |
2011-10-13
| ||
21:10 | merge trunk check-in: e7017fcc72 user: dkf tags: dkf-utf16-branch | |
21:09 | merge trunk check-in: 96352b53af user: dkf tags: dkf-notifier-poll | |
19:18 | merge trunk check-in: 610f5b391c user: dgp tags: remove-pathappend-intrep | |
18:19 | Correct botch. check-in: f0486f9bbd user: dgp tags: trunk | |
18:10 | 3423059 silence compiler warning check-in: d287fac6bb user: dgp tags: trunk | |
Changes
Changes to generic/tclTest.c.
︙ | ︙ | |||
7113 7114 7115 7116 7117 7118 7119 7120 7121 7122 7123 7124 7125 7126 | 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) { return TCL_ERROR; } result[0] = Tcl_NewIntObj(foo); result[1] = Tcl_NewIntObj(count); result[2] = Tcl_NewListObj(count, remObjv); Tcl_SetObjResult(interp, Tcl_NewListObj(3, result)); | > | 7113 7114 7115 7116 7117 7118 7119 7120 7121 7122 7123 7124 7125 7126 7127 | 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 }; foo = 0; if (Tcl_ParseArgsObjv(interp, argTable, &count, objv, &remObjv)!=TCL_OK) { return TCL_ERROR; } result[0] = Tcl_NewIntObj(foo); result[1] = Tcl_NewIntObj(count); result[2] = Tcl_NewListObj(count, remObjv); Tcl_SetObjResult(interp, Tcl_NewListObj(3, result)); |
︙ | ︙ |