database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00
Code Activity

Changes toward reducing code size when SQLITE_OMIT_UTF16 is enabled. (CVS 2099)

Browse Source 
FossilOrigin-Name: 59a0a8b7cebc011731654bd0545cf8d19612ca8e
This commit is contained in:
drh
2004-11-14 04:04:17 +00:00
parent 13d7042a73
commit 5436dc2d97
8 changed files with 127 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
test/tester.tcl
View File

@ -11,7 +11,7 @@
# This file implements some common TCL routines used for regression
# testing the SQLite library
#
# $Id: tester.tcl,v 1.41 2004/11/10 15:27:38 danielk1977 Exp $
# $Id: tester.tcl,v 1.42 2004/11/14 04:04:18 drh Exp $
# Make sure tclsqlite3 was compiled correctly. Abort now with an
# error message if not.
@ -241,7 +241,7 @@ proc integrity_check {name} {
# code. Omit the code if false.
#
proc ifcapable {expr code} {
regsub -all {[a-z_]+} $expr {$::sqlite_options(&)} e2
regsub -all {[a-z_0-9]+} $expr {$::sqlite_options(&)} e2
if !($e2) return
return -code [catch {uplevel 1 $code}]
}
@ -249,4 +249,3 @@ proc ifcapable {expr code} {
# If the library is compiled with the SQLITE_DEFAULT_AUTOVACUUM macro set
# to non-zero, then set the global variable $AUTOVACUUM to 1.
set AUTOVACUUM $sqlite_options(default_autovacuum)