Tcl Source Code

Check-in [2b5c5e43d4]
Login

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

Overview
Comment:Plug another memory leak. [Bug 3384840]
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2b5c5e43d4ce0117e9567b4d02a3d06ec0bd4b9b
User & Date: kbk 2011-08-06 16:27:00
Context
2011-08-06
19:56
Plug another memory leak. [Bug 3384840] check-in: 81336419d0 user: kbk tags: trunk
16:27
Plug another memory leak. [Bug 3384840] check-in: 2b5c5e43d4 user: kbk tags: trunk
03:19
Plugged a memory leak in double->string conversion. [Bug 3386975] check-in: c9b7bd387f user: kbk tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.





1
2
3
4
5
6
7




2011-08-05  Kevin B. Kenny  <[email protected]>

	* generic/tclStrToD.c: Plugged a memory leak in double->string
	conversion. [Bug 3386975]

2011-08-05  Donal K. Fellows  <[email protected]>

>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
2011-08-06  Kevin B, Kenny  <[email protected]>

	* generic/tclAssemnbly.c: Plug another memory leak. [Bug 3384840]

2011-08-05  Kevin B. Kenny  <[email protected]>

	* generic/tclStrToD.c: Plugged a memory leak in double->string
	conversion. [Bug 3386975]

2011-08-05  Donal K. Fellows  <[email protected]>

Changes to generic/tclAssembly.c.

3889
3890
3891
3892
3893
3894
3895


3896
3897
3898
3899





3900
3901
3902
3903
3904
3905
3906
	    TclStoreInt4AtPtr(catchIndices[catchDepth-1],
		    envPtr->codeStart + bbPtr->startOffset - 4);
	}

	prevPtr = bbPtr;
    }



    if (catchDepth != 0) {
	Tcl_Panic("unclosed catch at end of code in "
		"tclAssembly.c:BuildExceptionRanges, can't happen");
    }






    return TCL_OK;
}

/*
 *-----------------------------------------------------------------------------
 *







>
>




>
>
>
>
>







3889
3890
3891
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913
	    TclStoreInt4AtPtr(catchIndices[catchDepth-1],
		    envPtr->codeStart + bbPtr->startOffset - 4);
	}

	prevPtr = bbPtr;
    }

    /* Make sure that all catches are closed */

    if (catchDepth != 0) {
	Tcl_Panic("unclosed catch at end of code in "
		"tclAssembly.c:BuildExceptionRanges, can't happen");
    }

    /* Free temp storage */

    ckfree(catchIndices);
    ckfree(catches);

    return TCL_OK;
}

/*
 *-----------------------------------------------------------------------------
 *