database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-10 01:02:56 +03:00
Code Activity

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

Browse Source 
FossilOrigin-Name: 18a5babb72102f9a82cb24757612a8b683a3f995
This commit is contained in:
drh
2007-08-30 14:58:20 +00:00
parent c16d463085
commit f81fe71c2a
3 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
manifest
View File

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

2
manifest.uuid
View File

@@ -1 +1 @@
5a22d8695b49cf7bc2eee382b66a98d29adb9e6e 18a5babb72102f9a82cb24757612a8b683a3f995

3
src/tclsqlite.c
View File

@@ -12,7 +12,7 @@
** A TCL Interface to SQLite. Append this file to sqlite3.c and ** A TCL Interface to SQLite. Append this file to sqlite3.c and
** compile the whole thing to build a TCL-enabled version of SQLite. ** 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 "tcl.h"
#include <errno.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_ObjSetVar2(interp, pArray, pStar, pColList,0);
Tcl_DecrRefCount(pColList); Tcl_DecrRefCount(pColList);
Tcl_DecrRefCount(pStar);
} }
/* Execute the SQL /* Execute the SQL