diff options
| author | mdejong <mdejong@noemail.net> | 2003-01-18 01:05:15 (GMT) |
|---|---|---|
| committer | mdejong <mdejong@noemail.net> | 2003-01-18 01:05:15 (GMT) |
| commit | e47f5ea5ce73f9c41658fbab6c838aeba7584809 (patch) | |
| tree | 7df8ef4fc611003014cced5e70ec717660bedb11 /win/tclWinDde.c | |
| parent | ede71c0ce6866557b7500e98cbecf3c27315e050 (diff) | |
| download | tcl-e47f5ea5ce73f9c41658fbab6c838aeba7584809.zip tcl-e47f5ea5ce73f9c41658fbab6c838aeba7584809.tar.gz tcl-e47f5ea5ce73f9c41658fbab6c838aeba7584809.tar.bz2 | |
* win/tclWinDde.c (DdeServerProc): Deallocate
the Tcl_Obj returned by ExecuteRemoteObject
if it was not saved in a connection object.
FossilOrigin-Name: 5d266163223a5543f5f7b7990c08a5354d7b7d1e
Diffstat (limited to 'win/tclWinDde.c')
| -rw-r--r-- | win/tclWinDde.c | 4 |
1 files changed, 3 insertions, 1 deletions
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) { |