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: |
0b4da049c6ef5b6e545e647e7bf3b474 |
User & Date: | bjbarcla on 2017-03-01 19:06:34 |
Other Links: | branch diff | manifest | tags |
Context
2017-03-01
| ||
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 | |
19:04 | updated fix, removed mutex check-in: 344bd252c6 user: bjbarcla tags: v1.63-elena | |
Changes
Modified common.scm from [c2bde245d0] to [717a16f405].
︙ | ︙ | |||
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 1 *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 () |
︙ | ︙ |