Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update the vdbe-compress.tcl script to account for expressions of the form (123>var), where "var" should be replaced with a reference to a union member. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
640345d880c6178f8434e3ce40329b75 |
| User & Date: | dan 2014-10-16 11:45:14 |
Context
|
2014-10-16
| ||
| 18:34 | Changes to work around Win32 and MSVCRT APIs that are not present on Windows CE 200x. check-in: 1418c006 user: mistachkin tags: trunk | |
| 11:45 | Update the vdbe-compress.tcl script to account for expressions of the form (123>var), where "var" should be replaced with a reference to a union member. check-in: 640345d8 user: dan tags: trunk | |
|
2014-10-15
| ||
| 15:28 | Update releasetest.tcl so that x86-64 runs a superset of the x86 tests. check-in: 3c1e70f4 user: dan tags: trunk | |
Changes
Changes to tool/vdbe-compress.tcl.
106 107 108 109 110 111 112 113 114 115 116 117 118 119 |
append afterUnion $line\n
set vlist {}
} elseif {[llength $vlist]>0} {
append line " "
foreach v $vlist {
regsub -all "(\[^a-zA-Z0-9>.\])${v}(\\W)" $line "\\1u.$sname.$v\\2" line
regsub -all "(\[^a-zA-Z0-9>.\])${v}(\\W)" $line "\\1u.$sname.$v\\2" line
}
append afterUnion [string trimright $line]\n
} elseif {$line=="" && [eof stdin]} {
# no-op
} else {
append afterUnion $line\n
}
|
> > > > > |
106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 |
append afterUnion $line\n
set vlist {}
} elseif {[llength $vlist]>0} {
append line " "
foreach v $vlist {
regsub -all "(\[^a-zA-Z0-9>.\])${v}(\\W)" $line "\\1u.$sname.$v\\2" line
regsub -all "(\[^a-zA-Z0-9>.\])${v}(\\W)" $line "\\1u.$sname.$v\\2" line
# The expressions above fail to catch instance of variable "abc" in
# expressions like (32>abc). The following expression makes those
# substitutions.
regsub -all "(\[^-\])>${v}(\\W)" $line "\\1>u.$sname.$v\\2" line
}
append afterUnion [string trimright $line]\n
} elseif {$line=="" && [eof stdin]} {
# no-op
} else {
append afterUnion $line\n
}
|