diff options
| author | drh <drh@noemail.net> | 2010-10-27 15:36:21 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2010-10-27 15:36:21 +0000 |
| commit | efdde169f618a96b82638c1f74a622f3e1456fb3 (patch) | |
| tree | ccf5500ea64b0b765a5441c10397c35ecaf86fe9 /src/tclsqlite.c | |
| parent | 76de8a750ac574e0aff09486bb88314bbf8c605e (diff) | |
| download | sqlite-efdde169f618a96b82638c1f74a622f3e1456fb3.tar.gz sqlite-efdde169f618a96b82638c1f74a622f3e1456fb3.zip | |
Fix a memory leak in the update_hook method of the TCL interface.
FossilOrigin-Name: 1d17e3dc832d789c3665e240dac5019fc4f9c18b
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 3f1cb11d7..471b0d3fb 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -670,6 +670,7 @@ static void DbUpdateHandler( Tcl_ListObjAppendElement(0, pCmd, Tcl_NewStringObj(zTbl, -1)); Tcl_ListObjAppendElement(0, pCmd, Tcl_NewWideIntObj(rowid)); Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); + Tcl_DecrRefCount(pCmd); } static void tclCollateNeeded( |