Fix a bug in the TCL code for sqlite3_analyzer. (CVS 4590)

FossilOrigin-Name: 7c2cf4542852a81daf29a930ab103c52bb678326

diff --git a/manifest b/manifest
index bb4c1f1ee57ea2058c46d714e2d87acdaa955ee0..a3eb7a60ea8b5ef3df4c49dc5669fa5edbb29e93 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Clarify\sthe\soperation\sof\ssqlite3_blob_close()\sin\sthe\sAPI\sdocumentation.\r\nTicket\s#2815.\s(CVS\s4589)
-D 2007-12-04T13:22:44
+C Fix\sa\sbug\sin\sthe\sTCL\scode\sfor\ssqlite3_analyzer.\s(CVS\s4590)
+D 2007-12-04T13:41:51
 F Makefile.arm-wince-mingw32ce-gcc ac5f7b2cef0cd850d6f755ba6ee4ab961b1fadf7
 F Makefile.in 30789bf70614bad659351660d76b8e533f3340e9
 F Makefile.linux-gcc d53183f4aa6a9192d249731c90dbdffbd2c68654
@@ -535,7 +535,7 @@ F tool/showdb.c a086a3d788c7a23cb008317c3180ceb19f20bce0
 F tool/showjournal.c ec3b171be148656827c4949fbfb8ab4370822f87
 F tool/soak1.tcl 85a4a7826c77351bfe1c005ae3cff2ef59123557
 F tool/space_used.tcl f714c41a59e326b8b9042f415b628b561bafa06b
-F tool/spaceanal.tcl f60a242a996a79d59cad6615cec83a9203e17911
+F tool/spaceanal.tcl b87db46ae29e3116411b1686e136b9b994d7de39
 F tool/speedtest.tcl 06c76698485ccf597b9e7dbb1ac70706eb873355
 F tool/speedtest2.tcl ee2149167303ba8e95af97873c575c3e0fab58ff
 F www/34to35.tcl 942e479aa7740b55d714dce0f0b2cb6ca91c3f20
@@ -596,7 +596,7 @@ F www/tclsqlite.tcl 8be95ee6dba05eabcd27a9d91331c803f2ce2130
 F www/vdbe.tcl 87a31ace769f20d3627a64fa1fade7fed47b90d0
 F www/version3.tcl 890248cf7b70e60c383b0e84d77d5132b3ead42b
 F www/whentouse.tcl fc46eae081251c3c181bd79c5faef8195d7991a5
-P 96ec39031e0b0b9a69e7b5647580326a87f94d2e
-R 64ed9e7dcaec1c7b07c2e69b2ecd3f2c
+P 78f359dffa6f4af4d5b7e4523f451e0e405350c0
+R cfc28c51a4620cec082dc386c8465836
 U drh
-Z 34627d860f21f382f905570c77940ed3
+Z c95254d1012df22f0a03f3a42376bc6c

diff --git a/manifest.uuid b/manifest.uuid
index f519b7842dc72cb9e8930c4a730702ff4a5197cc..5240aeab05f7ec83691c522cd703cbf81a1942a3 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-78f359dffa6f4af4d5b7e4523f451e0e405350c0
\ No newline at end of file
+7c2cf4542852a81daf29a930ab103c52bb678326
\ No newline at end of file

diff --git a/tool/spaceanal.tcl b/tool/spaceanal.tcl
index d70b442f31aa02a5d8dfc25e7d623f7b595d56c2..3718357cbb27ad7b8d2cc070565779a8f3a0fff0 100644 (file)
--- a/tool/spaceanal.tcl
+++ b/tool/spaceanal.tcl
@@ -63,7 +63,11 @@ set tabledef\
 mem eval $tabledef
 
 proc integerify {real} {
-  return [expr int($real)]
+  if {[string is double -strict $real]} {
+    return [expr {int($real)}]
+  } else {
+    return 0
+  }
 }
 mem function int integerify