diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | win/tclWinDde.c | 4 |
2 files changed, 9 insertions, 1 deletions
@@ -1,5 +1,11 @@ 2003-01-17 Mo DeJong <mdejong@users.sourceforge.net> + * win/tclWinDde.c (DdeServerProc): Deallocate + the Tcl_Obj returned by ExecuteRemoteObject + if it was not saved in a connection object. + +2003-01-17 Mo DeJong <mdejong@users.sourceforge.net> + * generic/tcl.h: Revert earlier change that defined TCL_WIDE_INT_TYPE as long long and TCL_LL_MODIFIER as L when compiling with diff --git a/win/tclWinDde.c b/win/tclWinDde.c index 8ee3399..44879b9 100644 --- a/win/tclWinDde.c +++ b/win/tclWinDde.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinDde.c,v 1.10 2003/01/16 20:51:57 hobbs Exp $ + * RCS: @(#) $Id: tclWinDde.c,v 1.11 2003/01/18 01:05:17 mdejong Exp $ */ #include "tclPort.h" @@ -637,6 +637,8 @@ DdeServerProc ( if (convPtr != NULL) { Tcl_IncrRefCount(returnPackagePtr); convPtr->returnPackagePtr = returnPackagePtr; + } else { + Tcl_DecrRefCount(returnPackagePtr); } Tcl_DecrRefCount(ddeObjectPtr); if (returnPackagePtr == NULL) { |