Tcl Source Code

Check-in [c24d5e2982]
Login

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

Overview
Comment:FreeIndex backport
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA1: c24d5e2982a5cc188ac9c41561f4c4d57e8cb955
User & Date: dgp 2011-04-27 19:34:30
Context
2011-04-28
13:29
minor comment fix check-in: 1ce7439657 user: jan.nijtmans tags: core-8-5-branch
2011-04-27
19:35
merge mark check-in: 12793bbb81 user: dgp tags: trunk
19:34
FreeIndex backport check-in: c24d5e2982 user: dgp tags: core-8-5-branch
18:32
FreeListInternalRep() cleanup. check-in: 403736bc07 user: dgp tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.

1
2
3
4
5
6
7

8
9
10
11
12
13
14
2011-04-27  Don Porter  <[email protected]>

	* generic/tclListObj.c:	FreeListInternalRep() cleanup.

	* generic/tclBinary.c:	Backport fix for [Bug 2857044].
	* generic/tclDictObj.c:	All freeIntRepProcs set typePtr to NULL.
	* generic/tclEncoding.c:

	* generic/tclListObj.c:
	* generic/tclNamesp.c:
	* generic/tclObj.c:
	* generic/tclPathObj.c:
	* generic/tclProc.c:
	* generic/tclRegexp.c:
	* generic/tclStringObj.c:







>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
2011-04-27  Don Porter  <[email protected]>

	* generic/tclListObj.c:	FreeListInternalRep() cleanup.

	* generic/tclBinary.c:	Backport fix for [Bug 2857044].
	* generic/tclDictObj.c:	All freeIntRepProcs set typePtr to NULL.
	* generic/tclEncoding.c:
	* generic/tclIndexObj.c:
	* generic/tclListObj.c:
	* generic/tclNamesp.c:
	* generic/tclObj.c:
	* generic/tclPathObj.c:
	* generic/tclProc.c:
	* generic/tclRegexp.c:
	* generic/tclStringObj.c:

Changes to generic/tclIndexObj.c.

393
394
395
396
397
398
399

400
401
402
403
404
405
406
 */

static void
FreeIndex(
    Tcl_Obj *objPtr)
{
    ckfree((char *) objPtr->internalRep.otherValuePtr);

}

/*
 *----------------------------------------------------------------------
 *
 * Tcl_WrongNumArgs --
 *







>







393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
 */

static void
FreeIndex(
    Tcl_Obj *objPtr)
{
    ckfree((char *) objPtr->internalRep.otherValuePtr);
    objPtr->typePtr = NULL;
}

/*
 *----------------------------------------------------------------------
 *
 * Tcl_WrongNumArgs --
 *