Update 5 packages

mingw-w64-i686-tcl (8.6.16-1 -> 8.6.17-1)
mingw-w64-i686-tk (8.6.16-1 -> 8.6.17-1)
mingw-w64-x86_64-tcl (8.6.16-1 -> 8.6.17-1)
mingw-w64-x86_64-tk (8.6.16-1 -> 8.6.17-1)
perl-URI (5.32-1 -> 5.34-1)

Signed-off-by: Git for Windows Build Agent <[email protected]>

Author: Git for Windows Build Agent

mingw32/bin/sqlite3_analyzer.sh

@@ -79,6 +79,16 @@ Options:
 }
   exit 1
 }
+
+# Exit with given code, but first close db if open.
+#
+proc exit_clean {exit_code} {
+  if {0 < [llength [info commands db]]} {
+    db close
+  }
+  exit $exit_code
+}
+
 set file_to_analyze {}
 set flags(-pageinfo) 0
 set flags(-stats) 0
@@ -162,7 +172,7 @@ if {![db exists {SELECT 1 FROM pragma_compile_options
         lacks required capabilities. Recompile using the\
         -DSQLITE_ENABLE_DBSTAT_VTAB compile-time option to fix\
         this problem."
-  exit 1
+  exit_clean 1
 }
 
 db eval {SELECT count(*) FROM sqlite_schema}
@@ -173,7 +183,7 @@ if {$flags(-pageinfo)} {
   db eval {SELECT name, path, pageno FROM temp.stat ORDER BY pageno} {
     puts "$pageno $name $path"
   }
-  exit 0
+  exit_clean 0
 }
 if {$flags(-stats)} {
   db eval {CREATE VIRTUAL TABLE temp.stat USING dbstat}
@@ -203,7 +213,7 @@ if {$flags(-stats)} {
     puts "INSERT INTO stats VALUES($x);"
   }
   puts "COMMIT;"
-  exit 0
+  exit_clean 0
 }
 
 
@@ -586,6 +596,7 @@ set inuse_pgcnt   [expr {wide([mem eval $sql])}]
 set inuse_percent [percent $inuse_pgcnt $file_pgcnt]
 
 set free_pgcnt    [expr {$file_pgcnt-$inuse_pgcnt-$av_pgcnt}]
+if {$file_bytes>1073741824 && $free_pgcnt>0} {incr free_pgcnt -1}
 set free_percent  [percent $free_pgcnt $file_pgcnt]
 set free_pgcnt2   [db one {PRAGMA freelist_count}]
 set free_percent2 [percent $free_pgcnt2 $file_pgcnt]
@@ -600,6 +611,7 @@ set nindex [db eval {SELECT count(*) FROM sqlite_schema WHERE type='index'}]
 set sql {SELECT count(*) FROM sqlite_schema WHERE name LIKE 'sqlite_autoindex%'}
 set nautoindex [db eval $sql]
 set nmanindex [expr {$nindex-$nautoindex}]
+set nwithoutrowid [db eval {SELECT count(*) FROM pragma_table_list WHERE wr}]
 
 # set total_payload [mem eval "SELECT sum(payload) FROM space_used"]
 set user_payload [mem one {SELECT int(sum(payload)) FROM space_used
@@ -618,6 +630,7 @@ statline {Pages on the freelist (per header)} $free_pgcnt2 $free_percent2
 statline {Pages on the freelist (calculated)} $free_pgcnt $free_percent
 statline {Pages of auto-vacuum overhead} $av_pgcnt $av_percent
 statline {Number of tables in the database} $ntable
+statline {Number of WITHOUT ROWID tables} $nwithoutrowid
 statline {Number of indices} $nindex
 statline {Number of defined indices} $nmanindex
 statline {Number of implied indices} $nautoindex
@@ -676,6 +689,14 @@ if {$nindex>0} {
   subreport {All tables and indices} 1 0
 }
 subreport {All tables} {NOT is_index} 0
+if {$nwithoutrowid>0} {
+  subreport {All WITHOUT ROWID tables} {is_without_rowid} 0
+  set nrowidtab [db eval {SELECT count(*) FROM pragma_table_list
+                         WHERE type='table' AND NOT wr}]
+  if {$nrowidtab>0} {
+     subreport {ALL rowid tables} {NOT is_without_rowid AND NOT is_index} 0
+  }
+}
 if {$nindex>0} {
   subreport {All indices} {is_index} 0
 }
@@ -895,5 +916,7 @@ puts "COMMIT;"
 } err]} {
   puts "ERROR: $err"
   puts $errorInfo
-  exit 1
+  exit_clean 1
 }
+
+exit_clean 0

mingw32/bin/tcl86.dll

@@ -82,10 +82,10 @@ extern "C" {
 #define ITCL_MAJOR_VERSION	4
 #define ITCL_MINOR_VERSION	3
 #define ITCL_RELEASE_LEVEL      TCL_FINAL_RELEASE
-#define ITCL_RELEASE_SERIAL     2
+#define ITCL_RELEASE_SERIAL     4
 
 #define ITCL_VERSION            "4.3"
-#define ITCL_PATCH_LEVEL        "4.3.2"
+#define ITCL_PATCH_LEVEL        "4.3.4"
 
 
 /*

mingw32/bin/tclsh.exe

@@ -15,11 +15,14 @@ ITCLAPI const char *Itcl_InitStubs(
 
 #endif
 
+#if (TCL_MAJOR_VERSION < 9) && defined(TCL_MINOR_VERSION) && (TCL_MINOR_VERSION < 7)
+# define Tcl_ObjCmdProc2 Tcl_ObjCmdProc
+#endif
 
 /* !BEGIN!: Do not edit below this line. */
 
 #define ITCL_STUBS_EPOCH 0
-#define ITCL_STUBS_REVISION 152
+#define ITCL_STUBS_REVISION 157
 
 #ifdef __cplusplus
 extern "C" {
@@ -29,8 +32,15 @@ extern "C" {
  * Exported function declarations:
  */
 
-/* Slot 0 is reserved */
-/* Slot 1 is reserved */
+/* 0 */
+ITCLAPI int		Itcl_RegisterObjC2(Tcl_Interp *interp,
+				const char *name, Tcl_ObjCmdProc2 *proc,
+				void *clientData,
+				Tcl_CmdDeleteProc *deleteProc);
+/* 1 */
+ITCLAPI int		Itcl_FindC2(Tcl_Interp *interp, const char *name,
+				Tcl_ObjCmdProc2 **objProcPtr,
+				void **cDataPtr);
 /* 2 */
 ITCLAPI int		Itcl_RegisterC(Tcl_Interp *interp, const char *name,
 				Tcl_CmdProc *proc, void *clientData,
@@ -102,8 +112,8 @@ typedef struct ItclStubs {
     int revision;
     const ItclStubHooks *hooks;
 
-    void (*reserved0)(void);
-    void (*reserved1)(void);
+    int (*itcl_RegisterObjC2) (Tcl_Interp *interp, const char *name, Tcl_ObjCmdProc2 *proc, void *clientData, Tcl_CmdDeleteProc *deleteProc); /* 0 */
+    int (*itcl_FindC2) (Tcl_Interp *interp, const char *name, Tcl_ObjCmdProc2 **objProcPtr, void **cDataPtr); /* 1 */
     int (*itcl_RegisterC) (Tcl_Interp *interp, const char *name, Tcl_CmdProc *proc, void *clientData, Tcl_CmdDeleteProc *deleteProc); /* 2 */
     int (*itcl_RegisterObjC) (Tcl_Interp *interp, const char *name, Tcl_ObjCmdProc *proc, void *clientData, Tcl_CmdDeleteProc *deleteProc); /* 3 */
     int (*itcl_FindC) (Tcl_Interp *interp, const char *name, Tcl_CmdProc **argProcPtr, Tcl_ObjCmdProc **objProcPtr, void **cDataPtr); /* 4 */
@@ -144,8 +154,10 @@ extern const ItclStubs *itclStubsPtr;
  * Inline function declarations:
  */
 
-/* Slot 0 is reserved */
-/* Slot 1 is reserved */
+#define Itcl_RegisterObjC2 \
+	(itclStubsPtr->itcl_RegisterObjC2) /* 0 */
+#define Itcl_FindC2 \
+	(itclStubsPtr->itcl_FindC2) /* 1 */
 #define Itcl_RegisterC \
 	(itclStubsPtr->itcl_RegisterC) /* 2 */
 #define Itcl_RegisterObjC \
@@ -203,4 +215,15 @@ extern const ItclStubs *itclStubsPtr;
 
 /* !END!: Do not edit above this line. */
 
+#if (TCL_MAJOR_VERSION < 9)
+# if defined(TCL_MINOR_VERSION) && (TCL_MINOR_VERSION < 7)
+#   undef Tcl_ObjCmdProc2
+# endif
+# undef Itcl_RegisterObjC2
+# define Itcl_RegisterObjC2 Itcl_RegisterObjC
+# undef Itcl_FindC2
+# define Itcl_FindC2(interp, name, objProcPtr, cDataPtr) \
+	Itcl_FindC(interp, name, NULL, objProcPtr, cDataPtr)
+#endif
+
 #endif /* _ITCLDECLS */