From ea3bb806154c4c0410dee16d76aca48d49423c88 Mon Sep 17 00:00:00 2001 From: mdejong Date: Sat, 18 Jan 2003 01:05:15 +0000 Subject: * win/tclWinDde.c (DdeServerProc): Deallocate the Tcl_Obj returned by ExecuteRemoteObject if it was not saved in a connection object. --- ChangeLog | 6 ++++++ win/tclWinDde.c | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 3d3cdd5..32e424a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,11 @@ 2003-01-17 Mo DeJong + * 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 + * 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) { -- cgit v0.12