diff options
Diffstat (limited to 'net-im/icb/files/patch-o-aj')
-rw-r--r-- | net-im/icb/files/patch-o-aj | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/net-im/icb/files/patch-o-aj b/net-im/icb/files/patch-o-aj new file mode 100644 index 000000000000..760a3b4f0be4 --- /dev/null +++ b/net-im/icb/files/patch-o-aj @@ -0,0 +1,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; |