1 files changed, 0 insertions, 97 deletions
diff --git a/lang/sql/adapter/sqlite-patches/27_sqlthread.patch b/lang/sql/adapter/sqlite-patches/27_sqlthread.patch
deleted file mode 100644
index 5d6ef98d..00000000
--- a/lang/sql/adapter/sqlite-patches/27_sqlthread.patch
+++ /dev/null
@@ -1,97 +0,0 @@
---- src/test_thread.c
-+++ src/test_thread.c
-@@ -273,6 +273,9 @@
- 
-   const char *zFilename;
-   sqlite3 *db;
-+  void *pKey = 0;
-+  int nKey = 0;
-+  char *zErrMsg;
-   int rc;
-   char zBuf[100];
-   extern void Md5_Register(sqlite3*);
-@@ -281,7 +284,18 @@
-   UNUSED_PARAMETER(objc);
- 
-   zFilename = Tcl_GetString(objv[2]);
-+  pKey = Tcl_GetByteArrayFromObj(objv[3], &nKey);    
-   rc = sqlite3_open(zFilename, &db);
-+#ifdef SQLITE_HAS_CODEC
-+  if(db){
-+    rc = sqlite3_key(db, pKey, nKey);
-+    if( rc ){
-+      zErrMsg = sqlite3_mprintf("%s", sqlite3ErrStr(rc));
-+      sqlite3_close(db);
-+      db = NULL;
-+    }
-+  }
-+#endif
-   Md5_Register(db);
-   sqlite3_busy_handler(db, xBusy, 0);
-   
-@@ -330,7 +344,7 @@
-   } aSub[] = {
-     {"parent", sqlthread_parent, 1, "SCRIPT"},
-     {"spawn",  sqlthread_spawn,  2, "VARNAME SCRIPT"},
--    {"open",   sqlthread_open,   1, "DBNAME"},
-+    {"open",   sqlthread_open,   2, "DBNAME KEY"},
-     {"id",     sqlthread_id,     0, ""},
-     {0, 0, 0}
-   };
---- test/thread001.test
-+++ test/thread001.test
-@@ -77,7 +77,11 @@
-     #sqlthread parent {puts STARTING..}
-     set needToClose 0
-     if {![info exists ::DB]} {
--      set ::DB [sqlthread open test.db]
-+      set key ""
-+      if {[sqlite -has-codec]} {
-+        set key "xyzzy"
-+      }
-+      set ::DB [sqlthread open test.db $key]
-       #sqlthread parent "puts \"OPEN $::DB\""
-       set needToClose 1
-     }
-diff --git a/lang/sql/sqlite/test/thread003.test b/lang/sql/sqlite/test/thread003.test
---- test/thread003.test
-+++ test/thread003.test
-@@ -80,7 +80,11 @@
-   foreach zFile {test.db test2.db} {
-     set SCRIPT [format {
-       set iEnd [expr {[clock_seconds] + %d}]
--      set ::DB [sqlthread open %s]
-+      set key ""
-+      if {[sqlite -has-codec]} {
-+        set key "xyzzy"
-+      }
-+      set ::DB [sqlthread open %s $key]
-   
-       # Set the cache size to 15 pages per cache. 30 available globally.
-       execsql { PRAGMA cache_size = 15 }
-@@ -117,7 +121,11 @@
-     set SCRIPT [format {
-       set iStart [clock_seconds]
-       set iEnd [expr {[clock_seconds] + %d}]
--      set ::DB [sqlthread open %s]
-+      set key ""
-+      if {[sqlite -has-codec]} {
-+        set key "xyzzy"
-+      }
-+      set ::DB [sqlthread open %s $key]
-   
-       # Set the cache size to 15 pages per cache. 30 available globally.
-       execsql { PRAGMA cache_size = 15 }
-@@ -156,7 +164,11 @@
- do_test thread003.4 {
-   thread_spawn finished(1) $thread_procs [format {
-     set iEnd [expr {[clock_seconds] + %d}]
--    set ::DB [sqlthread open test.db]
-+    set key ""
-+    if {[sqlite -has-codec]} {
-+      set key "xyzzy"
-+    }
-+    set ::DB [sqlthread open test.db $key]
- 
-     # Set the cache size to 15 pages per cache. 30 available globally.
-     execsql { PRAGMA cache_size = 15 }