[sql] Import reference version of SQLite 3.8.7.4.

third_party/sqlite/sqlite-src-3080704/ext/rtree/rtree4.test

Index: third_party/sqlite/sqlite-src-3080704/ext/rtree/rtree4.test
diff --git a/third_party/sqlite/sqlite-src-3070603/ext/rtree/rtree4.test b/third_party/sqlite/sqlite-src-3080704/ext/rtree/rtree4.test
similarity index 91%
copy from third_party/sqlite/sqlite-src-3070603/ext/rtree/rtree4.test
copy to third_party/sqlite/sqlite-src-3080704/ext/rtree/rtree4.test
index 708d335b067cab91b07dca389be834b2fd4d035b..a3872b073569426bf368bc9fd2ee70dddc8945cc 100644
--- a/third_party/sqlite/sqlite-src-3070603/ext/rtree/rtree4.test
+++ b/third_party/sqlite/sqlite-src-3080704/ext/rtree/rtree4.test
@@ -27,21 +27,38 @@ if {[info exists G(isquick)] && $G(isquick)} {
   set ::NROW 250
 }
 
-# Return a floating point number between -X and X.
-# 
-proc rand {X} {
-  return [expr {int((rand()-0.5)*1024.0*$X)/512.0}]
-}
-
-# Return a positive floating point number less than or equal to X
-#
-proc randincr {X} {
-  while 1 {
-    set r [expr {int(rand()*$X*32.0)/32.0}]
-    if {$r>0.0} {return $r}
+ifcapable !rtree_int_only {
+  # Return a floating point number between -X and X.
+  # 
+  proc rand {X} {
+    return [expr {int((rand()-0.5)*1024.0*$X)/512.0}]
+  }
+  
+  # Return a positive floating point number less than or equal to X
+  #
+  proc randincr {X} {
+    while 1 {
+      set r [expr {int(rand()*$X*32.0)/32.0}]
+      if {$r>0.0} {return $r}
+    }
+  }
+} else {
+  # For rtree_int_only, return an number between -X and X.
+  # 
+  proc rand {X} {
+    return [expr {int((rand()-0.5)*2*$X)}]
+  }
+  
+  # Return a positive integer less than or equal to X
+  #
+  proc randincr {X} {
+    while 1 {
+      set r [expr {int(rand()*$X)+1}]
+      if {$r>0} {return $r}
+    }
   }
 }
-
+  
 # Scramble the $inlist into a random order.
 #
 proc scramble {inlist} {