Fix a memory leak in the update_hook method of the TCL interface.

FossilOrigin-Name: 1d17e3dc832d789c3665e240dac5019fc4f9c18b

diff --git a/manifest b/manifest
index 862d1517f9367e1c13f66dec25389cb1c339c6f9..d5f6fc15764e2e2f19b40e5f584954b0ea7be750 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,8 @@
-C Prevent\san\sassert\sfrom\sfailing\swhen\sopening\sa\szero-length\sdatabase\sfile\swith\san\sapparently\shot\sjournal\swith\slocking_mode=exclusive\sset.
-D 2010-10-22T13:55:51
+-----BEGIN PGP SIGNED MESSAGE-----
+Hash: SHA1
+
+C Fix\sa\smemory\sleak\sin\sthe\supdate_hook\smethod\sof\sthe\sTCL\sinterface.
+D 2010-10-27T15:36:22
 F Makefile.arm-wince-mingw32ce-gcc d6df77f1f48d690bd73162294bbba7f59507c72f
 F Makefile.in 2c8cefd962eca0147132c7cf9eaa4bb24c656f3f
 F Makefile.linux-gcc 91d710bdc4998cb015f39edf3cb314ec4f4d7e23
@@ -181,7 +184,7 @@ F src/sqliteInt.h c63b0340dfdfde18ff255ddccf004edd2d073288
 F src/sqliteLimit.h a17dcd3fb775d63b64a43a55c54cb282f9726f44
 F src/status.c 496913d4e8441195f6f2a75b1c95993a45b9b30b
 F src/table.c 2cd62736f845d82200acfa1287e33feb3c15d62e
-F src/tclsqlite.c e91019fb6787166abca23a81b16c07fecc2ed751
+F src/tclsqlite.c dc71e2bd0f16dbb9106c1f5e257a64b783574f26
 F src/test1.c cbedc6ea7905b1361db054fbf7fcd0dafb6d844e
 F src/test2.c 80d323d11e909cf0eb1b6fbb4ac22276483bcf31
 F src/test3.c 056093cfef69ff4227a6bdb9108564dc7f45e4bc
@@ -873,7 +876,14 @@ F tool/speedtest2.tcl ee2149167303ba8e95af97873c575c3e0fab58ff
 F tool/speedtest8.c 2902c46588c40b55661e471d7a86e4dd71a18224
 F tool/speedtest8inst1.c 293327bc76823f473684d589a8160bde1f52c14e
 F tool/vdbe-compress.tcl d70ea6d8a19e3571d7ab8c9b75cba86d1173ff0f
-P d30f7b2deffdba373a2e0988f433c631c790a7b5
-R cf57ced11aacf0208551629553db4816
-U dan
-Z 9caac11e4cccaa2af272b1a8dc9b12c0
+P f000ac1e52f56f5fcbc2f8b9cd632656c6dc6002
+R 87bd2b19f4ca2bca07ea5dcbd74b31a3
+U drh
+Z 479ea04ee8e630a3733354d872bb80c9
+-----BEGIN PGP SIGNATURE-----
+Version: GnuPG v1.4.6 (GNU/Linux)
+
+iD8DBQFMyEb5oxKgR168RlERAvL+AJ4udNOfHX94MZFfKRriPPbqDCuqVQCaA/SV
+OqyW54Uozr4uOZ/lWO5idRc=
+=GHn4
+-----END PGP SIGNATURE-----

diff --git a/manifest.uuid b/manifest.uuid
index 6927485528883dfb97863567265076575c4e0682..420b3c45f2970a2e5827ec11612deda5b819cafe 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-f000ac1e52f56f5fcbc2f8b9cd632656c6dc6002
\ No newline at end of file
+1d17e3dc832d789c3665e240dac5019fc4f9c18b
\ No newline at end of file

diff --git a/src/tclsqlite.c b/src/tclsqlite.c
index 3f1cb11d722fffc37da9942e146275c23d9bc0fa..471b0d3fb11cb902ec89af03412d3b0f1bbff6ec 100644 (file)
--- 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(