Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | compiler warning |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
edc3131309b3d815a43cdf583f1bd717 |
| User & Date: | dgp 2013-08-22 20:34:30 |
Context
|
2013-08-23
| ||
| 05:59 | Remove complications that no longer server any required purpose. check-in: 0390ff3464 user: dgp tags: trunk | |
|
2013-08-22
| ||
| 20:41 | merge trunk check-in: 2f5d805694 user: dgp tags: bug-2502002 | |
| 20:34 | compiler warning check-in: 26a14f7f49 user: dgp tags: dgp-refactor | |
| 20:34 | compiler warning check-in: edc3131309 user: dgp tags: trunk | |
| 20:21 | Make Dispatch() the single point for calling a Tcl_ObjCmdProc, and attach the DTRACE machinery there... check-in: cf9917a942 user: dgp tags: trunk | |
Changes
Changes to generic/tclBasic.c.
| ︙ | ︙ | |||
4216 4217 4218 4219 4220 4221 4222 4223 4224 |
Tcl_Interp *interp,
int result)
{
Tcl_ObjCmdProc *objProc = data[0];
ClientData clientData = data[1];
int objc = PTR2INT(data[2]);
Tcl_Obj **objv = data[3];
Interp *iPtr = (Interp *) interp;
| > < | 4216 4217 4218 4219 4220 4221 4222 4223 4224 4225 4226 4227 4228 4229 4230 4231 4232 |
Tcl_Interp *interp,
int result)
{
Tcl_ObjCmdProc *objProc = data[0];
ClientData clientData = data[1];
int objc = PTR2INT(data[2]);
Tcl_Obj **objv = data[3];
#ifdef USE_DTRACE
Interp *iPtr = (Interp *) interp;
if (TCL_DTRACE_CMD_ARGS_ENABLED()) {
const char *a[10];
int i = 0;
while (i < 10) {
a[i] = i < objc ? TclGetString(objv[i]) : NULL; i++;
}
|
| ︙ | ︙ |