Overview
| Comment: | Moved watchdog timer exit message |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
1ab7fff8bf18b798ea7f898b056595f7 |
| User & Date: | matt on 2015-05-26 23:07:46 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-05-27
| ||
| 20:58 | Oops. Borked merge to side. Closed-Leaf check-in: f9f4c1c4ea user: matt tags: borked-merge | |
|
2015-05-26
| ||
| 23:40 | Still trying to get watchdog, on-exit and signal/int or signal/term working gracefully check-in: ec49837f01 user: matt tags: v1.60 | |
| 23:07 | Moved watchdog timer exit message check-in: 1ab7fff8bf user: matt tags: v1.60 | |
| 22:43 | Improved signal handling little more. Handle sigterm. check-in: 64b3ca10d0 user: matt tags: v1.60 | |
Changes
Modified megatest.scm from [9c1bf3c037] to [0fff055d69].
| ︙ | ︙ | |||
349 350 351 352 353 354 355 | (if (not *time-to-exit*) (let delay-loop ((count 0)) (if (and (not *time-to-exit*) (< count 11)) ;; aprox 5-6 seconds (begin (thread-sleep! 1) (delay-loop (+ count 1)))) | | | | 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 |
(if (not *time-to-exit*)
(let delay-loop ((count 0))
(if (and (not *time-to-exit*)
(< count 11)) ;; aprox 5-6 seconds
(begin
(thread-sleep! 1)
(delay-loop (+ count 1))))
(loop)))
(debug:print-info 0 "Exiting watchdog timer, *time-to-exit* = " *time-to-exit*))))
"Watchdog thread")))
(thread-start! *watchdog*)
(if (args:get-arg "-log")
(let ((oup (open-output-file (args:get-arg "-log"))))
(debug:print-info 0 "Sending log output to " (args:get-arg "-log"))
|
| ︙ | ︙ |