Tcl Source Code

Check-in [248353f6a6]
Login

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

Overview
Comment:Another memory leak, and one Tcl_Free -> ckfree
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 248353f6a64015303fa835e6cd581ff1b68b1792
User & Date: jan.nijtmans 2013-01-25 13:07:59
Context
2013-01-25
18:47
remove unused code check-in: a55a37a15b user: mig tags: trunk
15:53
merge trunk check-in: 73a8288593 user: dgp tags: dgp-refactor
13:18
merge trunk check-in: 9a6483315f user: mig tags: mig-no280
13:14
merge trunk check-in: cc31429de1 user: jan.nijtmans tags: novem
13:12
merge trunk check-in: 03ea4f0870 user: jan.nijtmans tags: initsubsystems
13:07
Another memory leak, and one Tcl_Free -> ckfree check-in: 248353f6a6 user: jan.nijtmans tags: trunk
11:53
fix minor memory leak check-in: b8a82c3fd7 user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclThreadTest.c.

926
927
928
929
930
931
932

933
934
935
936
937
938
939
	    ckfree(resultPtr->errorInfo);
	}
    }
    Tcl_AppendResult(interp, resultPtr->result, NULL);
    Tcl_ConditionFinalize(&resultPtr->done);
    code = resultPtr->code;


    ckfree(resultPtr);

    return code;
}

/*
 *------------------------------------------------------------------------







>







926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
	    ckfree(resultPtr->errorInfo);
	}
    }
    Tcl_AppendResult(interp, resultPtr->result, NULL);
    Tcl_ConditionFinalize(&resultPtr->done);
    code = resultPtr->code;

    ckfree(resultPtr->result);
    ckfree(resultPtr);

    return code;
}

/*
 *------------------------------------------------------------------------

Changes to unix/tclUnixTime.c.

499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
	newTZ = "";
    }
    if (lastTZ == NULL || strcmp(lastTZ, newTZ)) {
	tzset();
	if (lastTZ == NULL) {
	    Tcl_CreateExitHandler(CleanupMemory, NULL);
	} else {
	    Tcl_Free(lastTZ);
	}
	lastTZ = ckalloc(strlen(newTZ) + 1);
	strcpy(lastTZ, newTZ);
    }
    Tcl_MutexUnlock(&tmMutex);
}








|







499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
	newTZ = "";
    }
    if (lastTZ == NULL || strcmp(lastTZ, newTZ)) {
	tzset();
	if (lastTZ == NULL) {
	    Tcl_CreateExitHandler(CleanupMemory, NULL);
	} else {
	    ckfree(lastTZ);
	}
	lastTZ = ckalloc(strlen(newTZ) + 1);
	strcpy(lastTZ, newTZ);
    }
    Tcl_MutexUnlock(&tmMutex);
}