Tcl Source Code

Check-in [edc3131309]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

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:edc3131309b3d815a43cdf583f1bd717722c3be9
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclBasic.c.

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];

    Interp *iPtr = (Interp *) interp;

#ifdef USE_DTRACE
    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++;
	}







>


<







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++;
	}