blob: 760a3b4f0be4b103c525959247b56751a2f843a3 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
*** tcl/tclProc.c.orig Mon May 18 03:13:18 1998
--- tcl/tclProc.c Mon May 18 03:14:36 1998
***************
*** 793,803 ****
*/
procDone:
! for (argPtr = frame.varPtr; argPtr != NULL; argPtr = argPtr->nextPtr) {
if (argPtr->flags & VAR_DYNAMIC) {
free(argPtr->value);
}
! free((char *) argPtr);
}
iPtr->framePtr = frame.callerPtr;
iPtr->varFramePtr = frame.callerVarPtr;
--- 793,805 ----
*/
procDone:
! for (argPtr = frame.varPtr; argPtr != NULL;) {
! void *tmp = argPtr;
if (argPtr->flags & VAR_DYNAMIC) {
free(argPtr->value);
}
! argPtr = argPtr->nextPtr;
! free(tmp);
}
iPtr->framePtr = frame.callerPtr;
iPtr->varFramePtr = frame.callerVarPtr;
|
