Avoid using the sqlite3ErrStr function in the Tcl package if USE_SYSTEM_SQLITE is...

FossilOrigin-Name: a716b9a3091072774d067c0a1258b0f4c39a4180

diff --git a/manifest b/manifest
index 101345d6e57b9e38f3a70c221c5c2569232bbdee..cf4d0a240cb3d5cbd58ac2abf7ebbadbd5bacca7 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Make\sheader\scomments\sfor\ssome\sTcl\stest\scommands\smore\sconsistent.\s\sNo\schanges\sto\scode.
-D 2012-09-10T08:48:05.199
+C Avoid\susing\sthe\ssqlite3ErrStr\sfunction\sin\sthe\sTcl\spackage\sif\sUSE_SYSTEM_SQLITE\sis\sdefined.
+D 2012-09-10T09:33:09.064
 F Makefile.arm-wince-mingw32ce-gcc d6df77f1f48d690bd73162294bbba7f59507c72f
 F Makefile.in abd5c10d21d1395f140d9e50ea999df8fa4d6376
 F Makefile.linux-gcc 91d710bdc4998cb015f39edf3cb314ec4f4d7e23
@@ -185,7 +185,7 @@ F src/sqliteInt.h 053e03a532beb909ead2df0721db67cdb4c48ae8
 F src/sqliteLimit.h 164b0e6749d31e0daa1a4589a169d31c0dec7b3d
 F src/status.c 35939e7e03abf1b7577ce311f48f682c40de3208
 F src/table.c 2cd62736f845d82200acfa1287e33feb3c15d62e
-F src/tclsqlite.c 192dd01625381fb0614bc35f686de5b9d5fbe2bf
+F src/tclsqlite.c f6bc566b5a52128759d6eb954b53930a6353ed58
 F src/test1.c 3d70f7c5987f186884cfebbfa7151a7d3d67d86e
 F src/test2.c 4178056dd1e7d70f954ad8a1e3edb71a2a784daf
 F src/test3.c 3c3c2407fa6ec7a19e24ae23f7cb439d0275a60d
@@ -1014,7 +1014,7 @@ F tool/vdbe-compress.tcl d70ea6d8a19e3571d7ab8c9b75cba86d1173ff0f
 F tool/warnings-clang.sh f6aa929dc20ef1f856af04a730772f59283631d4
 F tool/warnings.sh fbc018d67fd7395f440c28f33ef0f94420226381
 F tool/win/sqlite.vsix 67d8a99aceb56384a81b3f30d6c71743146d2cc9
-P f260d7d567a1239c483c437d0b18a95bd0c96724
-R 36da01c96777fdf02072bd5dbf03de91
+P af870ca9827d2079a35dbb545660f670c7ca9512
+R 41116711b74a4531ffcdbedf61877a05
 U mistachkin
-Z d0e3237f44c1c6720ed7722cbf05a54d
+Z 81d27ccc240f2f1ae0e0280e87c1196f

diff --git a/manifest.uuid b/manifest.uuid
index 0e425a95984fe31132dc5ac2445422aed65373be..d65f797478a29aab6f51df66383b1860686b4a50 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-af870ca9827d2079a35dbb545660f670c7ca9512
\ No newline at end of file
+a716b9a3091072774d067c0a1258b0f4c39a4180
\ No newline at end of file

diff --git a/src/tclsqlite.c b/src/tclsqlite.c
index bb930f0c755165241188a43971079a1bbc48d56c..abec51e67acc2807f43c13e55b4ecf41a24f1960 100644 (file)
--- a/src/tclsqlite.c
+++ b/src/tclsqlite.c
@@ -45,7 +45,9 @@
 ** This function is used to translate a return code into an error
 ** message.
 */
+#ifndef USE_SYSTEM_SQLITE
 const char *sqlite3ErrStr(int rc);
+#endif
 
 /*
  * Windows needs to know which symbols to export.  Unix does not.
@@ -3042,15 +3044,19 @@ static int DbMain(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){
   zFile = Tcl_TranslateFileName(interp, zFile, &translatedFilename);
   rc = sqlite3_open_v2(zFile, &p->db, flags, zVfs);
   Tcl_DStringFree(&translatedFilename);
+#ifndef USE_SYSTEM_SQLITE
   if( p->db ){
+#endif
     if( SQLITE_OK!=sqlite3_errcode(p->db) ){
       zErrMsg = sqlite3_mprintf("%s", sqlite3_errmsg(p->db));
       sqlite3_close(p->db);
       p->db = 0;
     }
+#ifndef USE_SYSTEM_SQLITE
   }else{
     zErrMsg = sqlite3_mprintf("%s", sqlite3ErrStr(rc));
   }
+#endif
 #ifdef SQLITE_HAS_CODEC
   if( p->db ){
     sqlite3_key(p->db, pKey, nKey);