Overview
Comment: | added checks on starting watchdog that it is a not started thread |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.6584-ck5 |
Files: | files | file ages | folders |
SHA1: |
31cd96b3b893a1a2740ab5dbe798523b |
User & Date: | matt on 2021-04-20 08:56:25 |
Other Links: | branch diff | manifest | tags |
Context
2021-04-21
| ||
00:01 | wip check-in: 8357e84ed0 user: matt tags: v1.6584-ck5 | |
2021-04-20
| ||
08:56 | added checks on starting watchdog that it is a not started thread check-in: 31cd96b3b8 user: matt tags: v1.6584-ck5 | |
06:15 | wip check-in: 0b376e3ac3 user: matt tags: v1.6584-ck5 | |
Changes
Modified http-transportmod.scm from [81c29f8e98] to [c8ea6cc265].
︙ | |||
524 525 526 527 528 529 530 | 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 | + - + | (if (not server-going) ;; *dbstruct-db* (let ((watchdog (bdat-watchdog *bdat*))) (debug:print 0 *default-log-port* "SERVER: dbprep") (set! *dbstruct-db* (db:setup #t)) ;; run-id)) (set! server-going #t) (debug:print 0 *default-log-port* "SERVER: running, megatest version: " (common:get-full-version)) ;; NOTE: the server is NOT yet marked as running in the log. We do that in the keep-running routine. (if watchdog (if (not (member (thread-state watchdog) '(ready running blocked sleeping))) |
︙ |
Modified megatest.scm from [85475b3d3d] to [9e5e8b387a].
︙ | |||
52 53 54 55 56 57 58 | 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | - + | (declare (uses mtargs.import)) (declare (uses commonmod.import)) (declare (uses configfmod.import)) (declare (uses bigmod.import)) (declare (uses dbmod.import)) (declare (uses rmtmod.import)) (declare (uses servermod.import)) |
︙ |