Itcl - the [incr Tcl] extension

Check-in [0206ee9208]
Login

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

Overview
Comment:Mismatch in Itcl_PreserveData / Itcl_ReleaseData balance.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | itcl-4-0-3 | itcl-4-0-3-rc
Files: files | file ages | folders
SHA1: 0206ee920837fec73998de4b747b62b5815f6da2
User & Date: dgp 2015-02-12 21:35:03
Context
2015-03-11
17:45
merge release check-in: caec4b1279 user: dgp tags: trunk
2015-02-12
21:35
Mismatch in Itcl_PreserveData / Itcl_ReleaseData balance. Closed-Leaf check-in: 0206ee9208 user: dgp tags: itcl-4-0-3, itcl-4-0-3-rc
2015-01-21
13:47
merge trunk check-in: 6fd366338e user: dgp tags: itcl-4-0-3-rc
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/itclParse.c.

984
985
986
987
988
989
990

991
992
993
994

995
996
997
998
999
1000
1001
                    ItclProcErrorProc, imPtr, imPtr->namePtr, argumentPtr,
		    bodyPtr, &pmPtr);
	    }
	    if ((imPtr->flags & ITCL_COMMON) == 0) {
	        imPtr->accessCmd = Tcl_CreateObjCommand(interp,
		        Tcl_GetString(imPtr->fullNamePtr),
		        Itcl_ExecMethod, imPtr, Itcl_ReleaseData);

	    } else {
	        imPtr->accessCmd = Tcl_CreateObjCommand(interp,
		        Tcl_GetString(imPtr->fullNamePtr),
			Itcl_ExecProc, imPtr, Itcl_ReleaseData);

	    }
            Tcl_DStringInit(&buffer);
        }
    }
    if (iclsPtr->flags & (ITCL_TYPE|ITCL_WIDGETADAPTOR)) {
	/* initialize the typecomponents and typevariables */
        if (Itcl_PushCallFrame(interp, &frame, iclsPtr->nsPtr,







>




>







984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
                    ItclProcErrorProc, imPtr, imPtr->namePtr, argumentPtr,
		    bodyPtr, &pmPtr);
	    }
	    if ((imPtr->flags & ITCL_COMMON) == 0) {
	        imPtr->accessCmd = Tcl_CreateObjCommand(interp,
		        Tcl_GetString(imPtr->fullNamePtr),
		        Itcl_ExecMethod, imPtr, Itcl_ReleaseData);
		Itcl_PreserveData(imPtr);
	    } else {
	        imPtr->accessCmd = Tcl_CreateObjCommand(interp,
		        Tcl_GetString(imPtr->fullNamePtr),
			Itcl_ExecProc, imPtr, Itcl_ReleaseData);
		Itcl_PreserveData(imPtr);
	    }
            Tcl_DStringInit(&buffer);
        }
    }
    if (iclsPtr->flags & (ITCL_TYPE|ITCL_WIDGETADAPTOR)) {
	/* initialize the typecomponents and typevariables */
        if (Itcl_PushCallFrame(interp, &frame, iclsPtr->nsPtr,