mirror of
https://github.com/sqlite/sqlite.git
synced 2025-08-08 14:02:16 +03:00
Merge the latest trunk enhancements into the bedrock branch.
FossilOrigin-Name: c1f616ce802fbb9c3652f8cb43970e4bda18464e765f23fb5f96029721431092
This commit is contained in:
@@ -65,7 +65,6 @@ proc wal_set_walhdr {filename {intlist {}}} {
|
||||
|
||||
set fd [open $filename r+]
|
||||
fconfigure $fd -translation binary
|
||||
fconfigure $fd -encoding binary
|
||||
seek $fd 0
|
||||
puts -nonewline $fd $blob
|
||||
close $fd
|
||||
@@ -73,7 +72,6 @@ proc wal_set_walhdr {filename {intlist {}}} {
|
||||
|
||||
set fd [open $filename]
|
||||
fconfigure $fd -translation binary
|
||||
fconfigure $fd -encoding binary
|
||||
set blob [read $fd 24]
|
||||
close $fd
|
||||
|
||||
@@ -129,5 +127,3 @@ proc incr_tvfs_hdr {file idx incrval} {
|
||||
lset ints $idx $v
|
||||
set_tvfs_hdr $file $ints
|
||||
}
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user