-C Additional\sdebugging\soutput\sfrom\sbtree.c\s(CVS\s1394)
-D 2004-05-18T12:50:17
+C New\svarint\sencoding\sgives\sa\smaximum\svarint\slength\sof\s9\sinstead\sof\s10.\s(CVS\s1395)
+D 2004-05-18T15:57:42
F Makefile.in ab7b0d5118e2da97bac66be8684a1034e3500f5a
F Makefile.linux-gcc b86a99c493a5bfb402d1d9178dcdc4bd4b32f906
F README f1de682fbbd94899d50aca13d387d1b3fd3be2dd
F src/tclsqlite.c fbf0fac73624ae246551a6c671f1de0235b5faa1
F src/test1.c 12ef76b8aaba4408422f21f269256b630d4dd627
F src/test2.c 6195a1ca2c8d0d2d93644e86da3289b403486872
-F src/test3.c 0752af52c02d6b0053809ecf36adbdc81b90a402
+F src/test3.c 5e4a6d596f982f6f47a5f9f75ede9b4a3b739968
F src/test4.c b3fab9aea7a8940a8a7386ce1c7e2157b09bd296
F src/test5.c eb39aac8fed61bd930b92613cd705c145244074a
F src/tokenize.c e7536dd31205d5afb76c1bdc832dea009c7a3847
F src/trigger.c 11afe9abfba13a2ba142944c797c952e162d117f
F src/update.c 0cc7291dd0e0f82cf93085e49c973e8ef9e51fd5
F src/utf.c fc799748d43fe1982d157b871e3e420a19c85d4f
-F src/util.c f9511ffba78e6cf71a28774c2820d7750b5bacdf
+F src/util.c c2e92ba9bb3b10154ceea6f24bd28e17aa43e428
F src/vacuum.c c134702e023db8778e6be59ac0ea7b02315b5476
F src/vdbe.c 5cc6e41f2c9f24bbbf591ca538c097c0f7b41a3d
F src/vdbe.h 1d0d0b5741c7f46ab372a95a4305fed0ae09d466
F test/bigfile.test ea904b853ce2d703b16c5ce90e2b54951bc1ae81
F test/bigrow.test 8ab252dba108f12ad64e337b0f2ff31a807ac578
F test/bind.test 56a57043b42c4664ca705f6050e56717a8a6699a
-F test/btree.test d865f501a5aa818d138be06a007b9457053ca701
+F test/btree.test 08e4093c78d2bc1d54e27266f8d17fed14751125
F test/btree2.test aa4a6d05b1ea90b1acaf83ba89039dd302a88635
F test/btree4.test 3797b4305694c7af6828675b0f4b1424b8ca30e4
F test/btree5.test 8e5ff32c02e685d36516c6499add9375fe1377f2
F test/unique.test 0e38d4cc7affeef2527720d1dafd1f6870f02f2b
F test/update.test b29bd9061a1150426dab6959806fcc73a41b1217
F test/vacuum.test a2a44544df719666efb51afbfeb6062fd59a672a
+F test/varint.test ab7b110089a08b9926ed7390e7e97bdefeb74102
F test/version.test 2ba212ba06380e65e476bdf2fcd390e8b05af5a0
F test/view.test 1ee12c6f8f4791a2c0655120d5562a49400cfe53
F test/where.test cb3a2ed062ce4b5f08aff2d08027c6a46d68c47b
F www/tclsqlite.tcl b9271d44dcf147a93c98f8ecf28c927307abd6da
F www/vdbe.tcl 9b9095d4495f37697fd1935d10e14c6015e80aa1
F www/whentouse.tcl a8335bce47cc2fddb07f19052cb0cb4d9129a8e4
-P ad4a964158ba9ca9d221cf7ea0439577f3894890
-R 3fbe35ebb1dc80de72b327b868459b56
+P b2def1852c5357629cf69f0071963f9883074a70
+R fcc6388df2907a9562ab1f06c18ae1d4
U drh
-Z 3b96c3a7f2a622caf172e143f2195e19
+Z e7da228fbe2303ffbc30d46f572dedcc
-b2def1852c5357629cf69f0071963f9883074a70
\ No newline at end of file
+61bdb53a363644074d01682fab8220078523676b
\ No newline at end of file
** is not included in the SQLite library. It is used for automated
** testing of the SQLite library.
**
-** $Id: test3.c,v 1.37 2004/05/14 16:50:06 drh Exp $
+** $Id: test3.c,v 1.38 2004/05/18 15:57:42 drh Exp $
*/
#include "sqliteInt.h"
#include "pager.h"
){
u32 start, mult, count, incr;
u64 in, out;
- int n1, n2, i;
+ int n1, n2, i, j;
unsigned char zBuf[100];
if( argc!=5 ){
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
in = start;
in *= mult;
for(i=0; i<count; i++){
+ char zErr[200];
n1 = sqlite3PutVarint(zBuf, in);
if( n1>9 || n1<1 ){
- Tcl_AppendResult(interp, "PutVarint returned value out of range", 0);
+ sprintf(zErr, "PutVarint returned %d - should be between 1 and 9", n1);
+ Tcl_AppendResult(interp, zErr, 0);
return TCL_ERROR;
}
n2 = sqlite3GetVarint(zBuf, &out);
if( n1!=n2 ){
- Tcl_AppendResult(interp, \
- "GetVarint returned value different from PutVarint", 0);
+ sprintf(zErr, "PutVarint returned %d and GetVarint returned %d", n1, n2);
+ Tcl_AppendResult(interp, zErr, 0);
return TCL_ERROR;
}
if( in!=out ){
- Tcl_AppendResult(interp, \
- "Value read is different from value written", 0);
+ sprintf(zErr, "Wrote 0x%016llx and got back 0x%016llx", in, out);
+ Tcl_AppendResult(interp, zErr, 0);
return TCL_ERROR;
}
+
+ /* In order to get realistic timings, run getVarint 19 more times.
+ ** This is because getVarint is called about 20 times more often
+ ** than putVarint.
+ */
+ for(j=0; j<19; j++){
+ sqlite3GetVarint(zBuf, &out);
+ }
in += incr;
}
return TCL_OK;
** This file contains functions for allocating memory, comparing
** strings, and stuff like that.
**
-** $Id: util.c,v 1.82 2004/05/14 16:50:06 drh Exp $
+** $Id: util.c,v 1.83 2004/05/18 15:57:42 drh Exp $
*/
#include "sqliteInt.h"
#include <stdarg.h>
return 0;
}
+/*
+** The variable-length integer encoding is as follows:
+**
+** KEY:
+** A = 0xxxxxxx 7 bits of data and one flag bit
+** B = 1xxxxxxx 7 bits of data and one flag bit
+** C = xxxxxxxx 8 bits of data
+**
+** 7 bits - A
+** 14 bits - BA
+** 21 bits - BBA
+** 28 bits - BBBA
+** 35 bits - BBBBA
+** 42 bits - BBBBBA
+** 49 bits - BBBBBBA
+** 56 bits - BBBBBBBA
+** 64 bits - BBBBBBBBC
+*/
+
/*
** Write a 64-bit variable-length integer to memory starting at p[0].
** The length of data write will be between 1 and 9 bytes. The number
**
** A variable-length integer consists of the lower 7 bits of each byte
** for all bytes that have the 8th bit set and one byte with the 8th
-** bit clear.
+** bit clear. Except, if we get to the 9th byte, it stores the full
+** 8 bits and is the last byte.
*/
int sqlite3PutVarint(unsigned char *p, u64 v){
int i, j, n;
u8 buf[10];
+ if( v & 0xff00000000000000 ){
+ p[8] = v;
+ v >>= 8;
+ for(i=7; i>=0; i--){
+ p[i] = (v & 0x7f) | 0x80;
+ v >>= 7;
+ }
+ return 9;
+ }
n = 0;
do{
buf[n++] = (v & 0x7f) | 0x80;
v >>= 7;
}while( v!=0 );
buf[0] &= 0x7f;
+ assert( n<=9 );
for(i=0, j=n-1; j>=0; j--, i++){
p[i] = buf[j];
}
n = 4;
do{
c = p[n++];
+ if( n==9 ){
+ x64 = (x64<<8) | c;
+ break;
+ }
x64 = (x64<<7) | (c&0x7f);
}while( (c & 0x80)!=0 );
*v = x64;
int n = 1;
unsigned char c = p[0];
u32 x = c & 0x7f;
- while( (c & 0x80)!=0 ){
+ while( (c & 0x80)!=0 && n<9 ){
c = p[n++];
x = (x<<7) | (c & 0x7f);
}
do{
i++;
v >>= 7;
- }while( v!=0 );
+ }while( v!=0 && i<9 );
return i;
}
# This file implements regression tests for SQLite library. The
# focus of this script is btree database backend
#
-# $Id: btree.test,v 1.24 2004/05/14 16:50:07 drh Exp $
+# $Id: btree.test,v 1.25 2004/05/18 15:57:42 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
-# Testing of varint reading writing.
-#
-do_test btree-0.1 {
- btree_varint_test 0 0 500 1
-} {}
-do_test btree-0.2 {
- btree_varint_test 1024 1 500 1
-} {}
-do_test btree-0.3 {
- btree_varint_test -1 1 500 1
-} {}
-do_test btree-0.4 {
- btree_varint_test -1 100000 500 1
-} {}
-
# Basic functionality. Open and close a database.
#
do_test btree-1.1 {
--- /dev/null
+# 2001 September 15
+#
+# The author disclaims copyright to this source code. In place of
+# a legal notice, here is a blessing:
+#
+# May you do good and not evil.
+# May you find forgiveness for yourself and forgive others.
+# May you share freely, never taking more than you give.
+#
+#***********************************************************************
+# This file implements regression tests for SQLite library. The
+# focus of this script is variable-length integer encoding scheme.
+#
+# $Id: varint.test,v 1.1 2004/05/18 15:57:42 drh Exp $
+
+
+set testdir [file dirname $argv0]
+source $testdir/tester.tcl
+
+# Test reading and writing of varints.
+#
+set cnt 0
+foreach start {0 100 10000 1000000 0x10000000} {
+ foreach mult {1 0x10 0x100 0x1000 0x10000 0x100000 0x1000000 0x10000000} {
+ foreach incr {1 500 10000 50000000} {
+ incr cnt
+ do_test varint-1.$cnt {
+ btree_varint_test $start $mult 5000 $incr
+ } {}
+ }
+ }
+}