Sqlite3_analyzer reports an error if it runs into trouble. (CVS 3021)

FossilOrigin-Name: 388b9262281308d0a9dd16e2fb3df3425c2a491a

diff --git a/manifest b/manifest
index 9c6677b25861d9b175ca8b871a3594457cb0af9a..868fc26b86a3f56b2c5682177b44e352f676ba58 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Update\sthe\spublish\sscripts\sto\scorrectly\sbuild\sthe\sTCL\sDLL\sfor\swindows.\s(CVS\s3020)
-D 2006-01-24T02:00:32
+C Sqlite3_analyzer\sreports\san\serror\sif\sit\sruns\sinto\strouble.\s(CVS\s3021)
+D 2006-01-24T02:19:53
 F Makefile.in 53841eb72e9eeb6030a8ce28c2595a92f440fd10
 F Makefile.linux-gcc 74ba0eadf88748a9ce3fd03d2a3ede2e6715baec
 F README 9c4e2d6706bdcc3efdd773ce752a8cdab4f90028
@@ -287,7 +287,7 @@ F tool/report1.txt 9eae07f26a8fc53889b45fc833a66a33daa22816
 F tool/showdb.c a086a3d788c7a23cb008317c3180ceb19f20bce0
 F tool/showjournal.c ec3b171be148656827c4949fbfb8ab4370822f87
 F tool/space_used.tcl f714c41a59e326b8b9042f415b628b561bafa06b
-F tool/spaceanal.tcl 5b47b70b9a0d216ec63a5b5547b3642dd308e53a
+F tool/spaceanal.tcl ceaee5ce8711f869e9ad5f3a6ecea05f996f9614
 F tool/speedtest.tcl 06c76698485ccf597b9e7dbb1ac70706eb873355
 F tool/speedtest2.tcl ee2149167303ba8e95af97873c575c3e0fab58ff
 F www/arch.fig d5f9752a4dbf242e9cfffffd3f5762b6c63b3bcf
@@ -344,7 +344,7 @@ F www/tclsqlite.tcl bb0d1357328a42b1993d78573e587c6dcbc964b9
 F www/vdbe.tcl 87a31ace769f20d3627a64fa1fade7fed47b90d0
 F www/version3.tcl a99cf5f6d8bd4d5537584a2b342f0fb9fa601d8b
 F www/whentouse.tcl 97e2b5cd296f7d8057e11f44427dea8a4c2db513
-P 1fdde6c5061ceb14baa43402652bdd24e3fa85df
-R 548408d39d0369933f03c8c4adca8dce
+P 5254874a96acf89fe5f76c1628057b73ce66de4c
+R 01003271a9b6db821cada0864c4bf62c
 U drh
-Z 01f4a8ba070dc8846f590a58996ddffb
+Z dd8b891e185e0e2faa5176556f8e1ad6

diff --git a/manifest.uuid b/manifest.uuid
index 291a2fd2479a2f6eb6e001be8973c5e2c0cc0efb..434cfb8eaadeff744fe6d314a4ae9ca0d694491c 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-5254874a96acf89fe5f76c1628057b73ce66de4c
\ No newline at end of file
+388b9262281308d0a9dd16e2fb3df3425c2a491a
\ No newline at end of file

diff --git a/tool/spaceanal.tcl b/tool/spaceanal.tcl
index c9b8f92e252576c590ae39bb568e7157fd3d5549..3e49572b8b95b70a0539d234f59a26016e36be87 100644 (file)
--- a/tool/spaceanal.tcl
+++ b/tool/spaceanal.tcl
@@ -3,6 +3,8 @@
 # versus how much space is unused.
 #
 
+if {[catch {
+
 # Get the name of the database to analyze
 #
 #set argv $argv0
@@ -799,3 +801,9 @@ mem eval {SELECT * FROM space_used} x {
   puts ");"
 }
 puts "COMMIT;"
+
+} err]} {
+  puts "ERROR: $err"
+  puts $errorInfo
+  exit 1
+}