Fix a ref-count problem in the TCL bindings. Ticket #2597. (CVS 4338)

FossilOrigin-Name: 18a5babb72102f9a82cb24757612a8b683a3f995

diff --git a/manifest b/manifest
index ab9650c40e532215a1b20fefcecf00ea9f36756c..7760fe718ac1a98d4d022f56b6655b153452ea2a 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Remove\sthe\sSYNC_BARRIER\sflag.\s(CVS\s4337)
-D 2007-08-30T14:49:58
+C Fix\sa\sref-count\sproblem\sin\sthe\sTCL\sbindings.\s\sTicket\s#2597.\s(CVS\s4338)
+D 2007-08-30T14:58:20
 F Makefile.in bfcc303429a5d9dcd552d807ee016c77427418c3
 F Makefile.linux-gcc 65241babba6faf1152bf86574477baab19190499
 F README 9c4e2d6706bdcc3efdd773ce752a8cdab4f90028
@@ -135,7 +135,7 @@ F src/sqlite3ext.h 9a26028378c288af500d8b94ed079666fed5806b
 F src/sqliteInt.h 5dbb7a934a88dfa9893e2627f4821b0464f5edc0
 F src/sqliteLimit.h 1bcbbdfa856f8b71b561abb31edb864b0eca1d12
 F src/table.c 1aeb9eab57b4235db86fe15a35dec76fb445a9c4
-F src/tclsqlite.c d76af53f45c9e9f7f7d39531fa4c7bee7d0adad6
+F src/tclsqlite.c 5b801c7eeefe8c968325558e2a7977cf8a713d5f
 F src/test1.c 8b20d1f05777ac480d3caf8d5f79ab7a543513fc
 F src/test2.c 4ab230fbdc0decfa7422f6a052b609ba54f4dfac
 F src/test3.c 199a440ba2b38b26251393b609451a3484a15907
@@ -568,7 +568,7 @@ F www/tclsqlite.tcl 8be95ee6dba05eabcd27a9d91331c803f2ce2130
 F www/vdbe.tcl 87a31ace769f20d3627a64fa1fade7fed47b90d0
 F www/version3.tcl 890248cf7b70e60c383b0e84d77d5132b3ead42b
 F www/whentouse.tcl fc46eae081251c3c181bd79c5faef8195d7991a5
-P e14e3688eb64577a2a7070e4e47e715a5d7d5089
-R d153c0e3a7a30a92852af782bebeb3e7
-U danielk1977
-Z 0d44ea64241f36be6571ec0c2f8d4fc2
+P 5a22d8695b49cf7bc2eee382b66a98d29adb9e6e
+R e8bf3e9d6844747dd965b50d2cb26b45
+U drh
+Z 936d6ea52e3c08696df033234951ad71

diff --git a/manifest.uuid b/manifest.uuid
index e70bc678d7c4a95d937fa7c5164f45e87104442a..c635013750e5fb725e0c2e4cf5f8614f1d269837 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-5a22d8695b49cf7bc2eee382b66a98d29adb9e6e
\ No newline at end of file
+18a5babb72102f9a82cb24757612a8b683a3f995
\ No newline at end of file

diff --git a/src/tclsqlite.c b/src/tclsqlite.c
index 5a65ebe5033edaf19e079a3059f9b039ae834590..52ffc88c62ed8ffffd878ab65a3439c27f9f0548 100644 (file)
--- a/src/tclsqlite.c
+++ b/src/tclsqlite.c
@@ -12,7 +12,7 @@
 ** A TCL Interface to SQLite.  Append this file to sqlite3.c and
 ** compile the whole thing to build a TCL-enabled version of SQLite.
 **
-** $Id: tclsqlite.c,v 1.198 2007/08/22 20:18:22 drh Exp $
+** $Id: tclsqlite.c,v 1.199 2007/08/30 14:58:20 drh Exp $
 */
 #include "tcl.h"
 #include <errno.h>
@@ -1648,7 +1648,6 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){
         }
         Tcl_ObjSetVar2(interp, pArray, pStar, pColList,0);
         Tcl_DecrRefCount(pColList);
-        Tcl_DecrRefCount(pStar);
       }
 
       /* Execute the SQL