Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Remove some obsolete debugging parameters. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | wal |
| Files: | files | file ages | folders |
| SHA1: |
a012aed498bf41a5f6f3006182b0c4c2 |
| User & Date: | drh 2010-04-30 17:28:35 |
Context
|
2010-04-30
| ||
| 17:47 | Change the SHM VFS logic in os_unix.c so that it does not hold an exclusive lock n the mapped memory when also holding a CHECKPOINT lock. This improves concurrency between readers and checkpointers. check-in: 8660cda6 user: drh tags: wal | |
| 17:28 | Remove some obsolete debugging parameters. check-in: a012aed4 user: drh tags: wal | |
| 17:05 | Fix a problem with resizing the wal-index mapping after the mapping has been extended by an external process. check-in: 79d356fe user: dan tags: wal | |
Changes
Changes to src/test1.c.
5109
5110
5111
5112
5113
5114
5115
5116
5117
5118
5119
5120
5121
5122
5123
....
5169
5170
5171
5172
5173
5174
5175
5176
5177
5178
5179
5180
5181
5182
5183
5184
|
extern int sqlite3WhereTrace; extern int sqlite3OSTrace; extern int sqlite3VdbeAddopTrace; #endif #ifdef SQLITE_TEST extern char sqlite3_query_plan[]; static char *query_plan = sqlite3_query_plan; /* extern int sqlite3_walsummary_mmap_incr; // In wal.c */ #ifdef SQLITE_ENABLE_FTS3 extern int sqlite3_fts3_enable_parentheses; #endif #endif for(i=0; i<sizeof(aCmd)/sizeof(aCmd[0]); i++){ Tcl_CreateCommand(interp, aCmd[i].zName, aCmd[i].xProc, 0, 0); ................................................................................ #if SQLITE_OS_WIN Tcl_LinkVar(interp, "sqlite_os_type", (char*)&sqlite3_os_type, TCL_LINK_INT); #endif #ifdef SQLITE_TEST Tcl_LinkVar(interp, "sqlite_query_plan", (char*)&query_plan, TCL_LINK_STRING|TCL_LINK_READ_ONLY); /* Tcl_LinkVar(interp, "sqlite_walsummary_mmap_incr", (char*)&sqlite3_walsummary_mmap_incr, TCL_LINK_INT); */ #endif #ifdef SQLITE_DEBUG Tcl_LinkVar(interp, "sqlite_addop_trace", (char*)&sqlite3VdbeAddopTrace, TCL_LINK_INT); Tcl_LinkVar(interp, "sqlite_where_trace", (char*)&sqlite3WhereTrace, TCL_LINK_INT); Tcl_LinkVar(interp, "sqlite_os_trace", |
<
<
<
|
5109
5110
5111
5112
5113
5114
5115
5116
5117
5118
5119
5120
5121
5122
....
5168
5169
5170
5171
5172
5173
5174
5175
5176
5177
5178
5179
5180
5181
|
extern int sqlite3WhereTrace;
extern int sqlite3OSTrace;
extern int sqlite3VdbeAddopTrace;
#endif
#ifdef SQLITE_TEST
extern char sqlite3_query_plan[];
static char *query_plan = sqlite3_query_plan;
#ifdef SQLITE_ENABLE_FTS3
extern int sqlite3_fts3_enable_parentheses;
#endif
#endif
for(i=0; i<sizeof(aCmd)/sizeof(aCmd[0]); i++){
Tcl_CreateCommand(interp, aCmd[i].zName, aCmd[i].xProc, 0, 0);
................................................................................
#if SQLITE_OS_WIN
Tcl_LinkVar(interp, "sqlite_os_type",
(char*)&sqlite3_os_type, TCL_LINK_INT);
#endif
#ifdef SQLITE_TEST
Tcl_LinkVar(interp, "sqlite_query_plan",
(char*)&query_plan, TCL_LINK_STRING|TCL_LINK_READ_ONLY);
#endif
#ifdef SQLITE_DEBUG
Tcl_LinkVar(interp, "sqlite_addop_trace",
(char*)&sqlite3VdbeAddopTrace, TCL_LINK_INT);
Tcl_LinkVar(interp, "sqlite_where_trace",
(char*)&sqlite3WhereTrace, TCL_LINK_INT);
Tcl_LinkVar(interp, "sqlite_os_trace",
|
Changes to test/wal.test.
844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 ... 907 908 909 910 911 912 913 914 915 916 917 918 919 920 ... 961 962 963 964 965 966 967 968 |
} {B 2}
db2 close
db close
#-------------------------------------------------------------------------
# Test large log summaries.
#
set sqlite_walsummary_mmap_incr 64
do_test wal-13.1.1 {
list [file exists test.db] [file exists test.db-wal]
} {1 0}
do_test wal-13.1.2 {
set fd [open test.db-wal w]
seek $fd [expr 200*1024*1024]
puts $fd ""
................................................................................
} [expr (1<<$ii)]
do_test wal-13.$tn.$ii.b {
db eval { SELECT count(*) FROM t1 }
} [expr (1<<$ii)]
do_test wal-13.$tn.$ii.c {
db eval { SELECT count(*) FROM t1 }
} [expr (1<<$ii)]
}
catch { db2 close }
catch { close $::buddy }
db close
}
................................................................................
db2 eval { PRAGMA integrity_check }
} {ok}
catch { db close }
catch { db2 close }
finish_test
|
< > > > < |
844 845 846 847 848 849 850 851 852 853 854 855 856 857 ... 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 ... 963 964 965 966 967 968 969 |
} {B 2}
db2 close
db close
#-------------------------------------------------------------------------
# Test large log summaries.
#
do_test wal-13.1.1 {
list [file exists test.db] [file exists test.db-wal]
} {1 0}
do_test wal-13.1.2 {
set fd [open test.db-wal w]
seek $fd [expr 200*1024*1024]
puts $fd ""
................................................................................
} [expr (1<<$ii)]
do_test wal-13.$tn.$ii.b {
db eval { SELECT count(*) FROM t1 }
} [expr (1<<$ii)]
do_test wal-13.$tn.$ii.c {
db eval { SELECT count(*) FROM t1 }
} [expr (1<<$ii)]
do_test wal-13.$tn.$ii.d {
db eval { PRAGMA integrity_check }
} {ok}
}
catch { db2 close }
catch { close $::buddy }
db close
}
................................................................................
db2 eval { PRAGMA integrity_check }
} {ok}
catch { db close }
catch { db2 close }
finish_test
|