Overview
| Comment: | updated fix, removed extra print |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63-elena |
| Files: | files | file ages | folders |
| SHA1: |
bc910703e01af197dda6cc0be2856d65 |
| User & Date: | bjbarcla on 2017-03-01 19:08:13 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-03-01
| ||
| 19:10 | fixed issue for elena (0 byte megatest.db on make setup) check-in: 880cbf2fca user: bjbarcla tags: v1.63, 1.6309a | |
| 19:08 | updated fix, removed extra print Closed-Leaf check-in: bc910703e0 user: bjbarcla tags: v1.63-elena | |
| 19:06 | updated fix, removed extra print check-in: 0b4da049c6 user: bjbarcla tags: v1.63-elena | |
Changes
Modified common.scm from [717a16f405] to [6347549001].
| ︙ | ︙ | |||
634 635 636 637 638 639 640 |
(define (common:writable-watchdog dbstruct)
(thread-sleep! 0.05) ;; delay for startup
(let ((legacy-sync (common:run-sync?))
(debug-mode (debug:debug-mode 1))
(last-time (current-seconds))
(this-wd-num (begin (mutex-lock! *wdnum*mutex) (let ((x *wdnum*)) (set! *wdnum* (add1 *wdnum*)) (mutex-unlock! *wdnum*mutex) x))))
| | | 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 |
(define (common:writable-watchdog dbstruct)
(thread-sleep! 0.05) ;; delay for startup
(let ((legacy-sync (common:run-sync?))
(debug-mode (debug:debug-mode 1))
(last-time (current-seconds))
(this-wd-num (begin (mutex-lock! *wdnum*mutex) (let ((x *wdnum*)) (set! *wdnum* (add1 *wdnum*)) (mutex-unlock! *wdnum*mutex) x))))
(debug:print-info 2 *default-log-port* "Periodic sync thread started.")
(debug:print-info 3 *default-log-port* "watchdog starting. legacy-sync is " legacy-sync" pid="(current-process-id)" this-wd-num="this-wd-num)
(if (and legacy-sync (not *time-to-exit*))
(let* (;;(dbstruct (db:setup))
(mtdb (dbr:dbstruct-mtdb dbstruct))
(mtpath (db:dbdat-get-path mtdb)))
(debug:print-info 0 *default-log-port* "Server running, periodic sync started.")
(let loop ()
|
| ︙ | ︙ |