Megatest

Check-in [45cf98b762]
Login
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: 45cf98b762c83a2975a78f2378653763aba682b7
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
1051


1052
1053
1054
1055
1056
1057
1058
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)))
    (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!
;;