Fix to the "copy" method in the TCL interface. Ticket #3039. (CVS 4975)

FossilOrigin-Name: 6f07968ec4c9d773a852ecc8343df416d17af2a4

manifest

@@ -1,5 +1,5 @@
-C Document\sthe\sfast\sthat\sthe\sresult\sflag\scombinations\sto\nsqlite3_open_v2()\sthat\sare\snot\sdefined\sin\sthe\sdocumentation\sresults\nin\sundefined\sbehavior.\s\sTicket\s#3037.\s(CVS\s4974)
-D 2008-04-10T13:38:18
+C Fix\sto\sthe\s"copy"\smethod\sin\sthe\sTCL\sinterface.\s\sTicket\s#3039.\s(CVS\s4975)
+D 2008-04-10T13:42:56
 F Makefile.arm-wince-mingw32ce-gcc ac5f7b2cef0cd850d6f755ba6ee4ab961b1fadf7
 F Makefile.in b861627d91df5ee422c54237aa38296954dc0151
 F Makefile.linux-gcc d53183f4aa6a9192d249731c90dbdffbd2c68654
@@ -143,7 +143,7 @@ F src/sqlite3ext.h faacd0e6a81aabee0861c6d7883c9172e74ef5b3
 F src/sqliteInt.h 52c381c2f15054a5199e5359cf5deb6d48624ede
 F src/sqliteLimit.h f435e728c6b620ef7312814d660a81f9356eb5c8
 F src/table.c 2c48c575dd59b3a6c5c306bc55f51a9402cf429a
-F src/tclsqlite.c d272cbd208f87712f67ae7462d2d6cffbb28a676
+F src/tclsqlite.c 0d53336f1fc3c8a019adb56fb8daeb0f5b5238aa
 F src/test1.c aada95d7a7229366e51c71055d5764c920d3364c
 F src/test2.c f0808cc643528b9620e4059ca9bda8346f526121
 F src/test3.c c715b5a8a6415d7b2c67f97c394eef488b6f7e63
@@ -625,7 +625,7 @@ F www/tclsqlite.tcl 8be95ee6dba05eabcd27a9d91331c803f2ce2130
 F www/vdbe.tcl 87a31ace769f20d3627a64fa1fade7fed47b90d0
 F www/version3.tcl 890248cf7b70e60c383b0e84d77d5132b3ead42b
 F www/whentouse.tcl fc46eae081251c3c181bd79c5faef8195d7991a5
-P fba97f7874d723111e873d1470fc1a95e64f922d
-R 0596477aefa3d1fe3dd350293239f850
+P b390e1f7f8d2b530a6765f2ab6804335c5550870
+R 05691c706afc7be18825eef92254ef73
 U drh
-Z 93568eff63a4a15794a74a2c4052e9e4
+Z 9d91ed872ad230ff656f02026d9d6051

manifest.uuid

@@ -1 +1 @@
-b390e1f7f8d2b530a6765f2ab6804335c5550870
+6f07968ec4c9d773a852ecc8343df416d17af2a4

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.213 2008/04/04 12:21:09 drh Exp $
+** $Id: tclsqlite.c,v 1.214 2008/04/10 13:42:56 drh Exp $
 */
 #include "tcl.h"
 #include <errno.h>
@@ -1299,7 +1299,6 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){
     char *zFile;                /* The file from which to extract data */
     char *zConflict;            /* The conflict algorithm to use */
     sqlite3_stmt *pStmt;        /* A statement */
-    int rc;                     /* Result code */
     int nCol;                   /* Number of columns in the table */
     int nByte;                  /* Number of bytes in an SQL string */
     int i, j;                   /* Loop counters */