Overview
| Comment: | Fixed likely source of memory growth in servers - failed to push db handles back on the db stack when doing a sync. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v1.64-bad-full-sync-fix |
| Files: | files | file ages | folders |
| SHA1: |
45cf98b762c83a2975a78f2378653763 |
| User & Date: | matt on 2017-08-03 23:57:57 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-08-03
| ||
| 23:57 | Fixed likely source of memory growth in servers - failed to push db handles back on the db stack when doing a sync. Closed-Leaf check-in: 45cf98b762 user: matt tags: v1.64-bad-full-sync-fix | |
| 23:02 | Enforced full sync every hour check-in: 3dffe8fa8a user: matt tags: v1.64-bad-full-sync-fix | |
Changes
Modified db.scm from [93df72d2c0] to [5553b380f9].
| ︙ | ︙ | |||
1044 1045 1046 1047 1048 1049 1050 |
options)
data-synced))
(define (db:tmp->megatest.db-sync dbstruct last-update)
(let* ((mtdb (dbr:dbstruct-mtdb dbstruct))
(tmpdb (db:get-db dbstruct))
(refndb (dbr:dbstruct-refndb dbstruct)))
| | > | 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 |
options)
data-synced))
(define (db:tmp->megatest.db-sync dbstruct last-update)
(let* ((mtdb (dbr:dbstruct-mtdb dbstruct))
(tmpdb (db:get-db dbstruct))
(refndb (dbr:dbstruct-refndb dbstruct)))
(db:sync-tables (db:sync-all-tables-list dbstruct) last-update tmpdb refndb mtdb)
(stack-push! (dbr:dbstruct-dbstack dbstruct) dbdat)))
;;;; run-ids
;; if #f use *db-local-sync* : or 'local-sync-flags
;; if #t use timestamps : or 'timestamps
;;
;; NB// no-sync-db is the db handle, not a flag!
;;
|
| ︙ | ︙ |