diff options
| author | mdejong <mdejong> | 2003-01-18 01:05:15 (GMT) |
|---|---|---|
| committer | mdejong <mdejong> | 2003-01-18 01:05:15 (GMT) |
| commit | ea3bb806154c4c0410dee16d76aca48d49423c88 (patch) | |
| tree | 7df8ef4fc611003014cced5e70ec717660bedb11 /win | |
| parent | 02e1cf97bd71fea4171adaed0ccfd7f19ffdbbaf (diff) | |
| download | tcl-ea3bb806154c4c0410dee16d76aca48d49423c88.zip tcl-ea3bb806154c4c0410dee16d76aca48d49423c88.tar.gz tcl-ea3bb806154c4c0410dee16d76aca48d49423c88.tar.bz2 | |
* win/tclWinDde.c (DdeServerProc): Deallocate
the Tcl_Obj returned by ExecuteRemoteObject
if it was not saved in a connection object.
Diffstat (limited to 'win')
| -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) { |