Megatest

Check-in [0b4da049c6]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
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: 0b4da049c6ef5b6e545e647e7bf3b474b412497e
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified common.scm from [c2bde245d0] to [717a16f405].

︙
634
635
636
637
638
639
640
641

642
643
644
645
646
647
648

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 0 *default-log-port* "Periodic sync thread started.")
    (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 ()
︙

This page was generated in about 0.133s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00