Have the TCL 'errorcode' interface call sqlite3_errcode(). (CVS 1589)

FossilOrigin-Name: f4b4df6514c19b0c23b399142749a7e4a20d0f70

diff --git a/manifest b/manifest
index e04ce9b3ca55aa15594f41a455a5f04534831533..78d2b0abc7b048acfd79f9b82319e215508b06b7 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Don't\sinvoke\sauthorisation\scallback\sduring\sdatabase\sinitialisation.\s(CVS\s1588)
-D 2004-06-14T11:35:18
+C Have\sthe\sTCL\s'errorcode'\sinterface\scall\ssqlite3_errcode().\s(CVS\s1589)
+D 2004-06-14T11:43:46
 F Makefile.in ab7b0d5118e2da97bac66be8684a1034e3500f5a
 F Makefile.linux-gcc a9e5a0d309fa7c38e7c14d3ecf7690879d3a5457
 F README f1de682fbbd94899d50aca13d387d1b3fd3be2dd
@@ -59,7 +59,7 @@ F src/shell.c ca519519dcbbc582f6d88f7d0e7583b857fd3469
 F src/sqlite.h.in 36c253844656186ca53e1999efa6ef7b44f88779
 F src/sqliteInt.h 924f0bcb493722c90cec7b19a240a37a4f01bbe7
 F src/table.c af14284fa36c8d41f6829e3f2819dce07d3e2de2
-F src/tclsqlite.c f094cc80cdbc87178c1e28db7749e8770b301554
+F src/tclsqlite.c 6f88be282a3617c6739c043fd13571b5f2fe9922
 F src/test1.c e7588e3e55f7595c76874a4b9c6365e891ac69d1
 F src/test2.c 05f810c90cf6262d5f352860e87d41a3f34207f9
 F src/test3.c beafd0ccf7b9ae784744be1b1e66ffe8f64c25da
@@ -223,7 +223,7 @@ F www/support.tcl 1801397edd271cc39a2aadd54e701184b5181248
 F www/tclsqlite.tcl 19191cf2a1010eaeff74c51d83fd5f5a4d899075
 F www/vdbe.tcl 59288db1ac5c0616296b26dce071c36cb611dfe9
 F www/whentouse.tcl a8335bce47cc2fddb07f19052cb0cb4d9129a8e4
-P 2737505f28e37627ed6091e356d005624e1f49fa
-R 435424555e597f57c1fb5a99c2aa7338
+P 293fbf0aa5c221bc341d0d9afc73d459f427f940
+R 888007395645f5297c33209c47df9ae4
 U danielk1977
-Z 02907838488a8b54954c599b9995e751
+Z d9668c3a4b8e6a851d44ddfa1603077f

diff --git a/manifest.uuid b/manifest.uuid
index 8516dd6b5ccc55fb32c31e1314d01d1868519075..1475f9862163c6f61f7d1e54eef09d13ca441d46 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-293fbf0aa5c221bc341d0d9afc73d459f427f940
\ No newline at end of file
+f4b4df6514c19b0c23b399142749a7e4a20d0f70
\ No newline at end of file

diff --git a/src/tclsqlite.c b/src/tclsqlite.c
index 03edc162a12ac0ebd3ef6ccdbd27dfa11b69c188..866c805863ec844de09649aa3b5d93d71493d4ca 100644 (file)
--- a/src/tclsqlite.c
+++ b/src/tclsqlite.c
@@ -11,7 +11,7 @@
 *************************************************************************
 ** A TCL Interface to SQLite
 **
-** $Id: tclsqlite.c,v 1.85 2004/06/12 09:25:22 danielk1977 Exp $
+** $Id: tclsqlite.c,v 1.86 2004/06/14 11:43:46 danielk1977 Exp $
 */
 #ifndef NO_TCL     /* Omit this whole file if TCL is unavailable */
 
@@ -659,7 +659,7 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){
   ** call to sqlite3_exec().
   */
   case DB_ERRORCODE: {
-    Tcl_SetObjResult(interp, Tcl_NewIntObj(pDb->rc));
+    Tcl_SetObjResult(interp, Tcl_NewIntObj(sqlite3_errcode(pDb->db)));
     break;
   }