Tcl Source Code

Check-in [a55a37a15b]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:remove unused code
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a55a37a15be8be6ecf16031616cb44b8972d3845
User & Date: mig 2013-01-25 18:47:45
Context
2013-01-26
16:55
[Bug 3601804]: platformCPUID segmentation fault on Darwin check-in: e6f01c28bd user: jan.nijtmans tags: trunk
00:45
merge trunk doc improvements check-in: 77f930df2e user: jan.nijtmans tags: initsubsystems
2013-01-25
18:48
merge trunk check-in: 11c27b3886 user: mig tags: mig-no280
18:47
remove unused code check-in: a55a37a15b user: mig tags: trunk
13:07
Another memory leak, and one Tcl_Free -> ckfree check-in: 248353f6a6 user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclBasic.c.

4177
4178
4179
4180
4181
4182
4183
4184
4185
4186
4187
4188
4189
4190
4191
4192
4193
        iPtr->deferredCallbacks = NULL;
    } else {
	TclNRAddCallback(interp, NRCommand, NULL, NULL, NULL, NULL);
        callbackPtr = TOP_CB(interp);
    }
    cmdPtrPtr = (Command **) &(callbackPtr->data[0]);

    callbackPtr->data[2] = INT2PTR(objc);
    callbackPtr->data[3] = (ClientData) objv;

    iPtr->numLevels++;
    result = TclInterpReady(interp);

    if ((result != TCL_OK) || (objc == 0)) {
	return result;
    }








<
<
<







4177
4178
4179
4180
4181
4182
4183



4184
4185
4186
4187
4188
4189
4190
        iPtr->deferredCallbacks = NULL;
    } else {
	TclNRAddCallback(interp, NRCommand, NULL, NULL, NULL, NULL);
        callbackPtr = TOP_CB(interp);
    }
    cmdPtrPtr = (Command **) &(callbackPtr->data[0]);




    iPtr->numLevels++;
    result = TclInterpReady(interp);

    if ((result != TCL_OK) || (objc == 0)) {
	return result;
    }