Overview
| Comment: | Removing call to cleanup on short-circuit exit where existing server is running. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
81e3f50894c3eac419ab5624003ca54f |
| User & Date: | mrwellan on 2023-07-31 09:17:39 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-07-31
| ||
| 14:59 | corrected path to db to fix dashboard hang in Run Control check-in: ab926dd252 user: mmgraham tags: v1.80 | |
| 09:17 | Removing call to cleanup on short-circuit exit where existing server is running. check-in: 81e3f50894 user: mrwellan tags: v1.80 | |
|
2023-07-25
| ||
| 17:05 | changed megatest version to 1.8016 check-in: 3b2c602eba user: mmgraham tags: v1.80 | |
Changes
Modified tcp-transportmod.scm from [fc5dddb25a] to [62bad26250].
| ︙ | ︙ | |||
580 581 582 583 584 585 586 | (else ;; should never get here (debug:print 0 *default-log-port* "BAD SERVER RECORD: "leadsrv) (assert #f "Bad server record "leadsrv)))))))) (if ok (tt-last-access-set! ttdat *db-last-access*) ;; bit silly, just use db-last-access (begin (debug:print 0 *default-log-port* "Exiting immediately") | | | 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 | (else ;; should never get here (debug:print 0 *default-log-port* "BAD SERVER RECORD: "leadsrv) (assert #f "Bad server record "leadsrv)))))))) (if ok (tt-last-access-set! ttdat *db-last-access*) ;; bit silly, just use db-last-access (begin (debug:print 0 *default-log-port* "Exiting immediately") ;; (cleanup) ;; there is nothing to clean up I think. I'm seeing servers hit this line and never exit. (exit))) (let* ((last-update (dbr:dbstruct-last-update dbstruct)) (curr-secs (current-seconds))) (if (and (eq? (tt-state ttdat) 'running) (> (- curr-secs last-update) 3)) ;; every 3-4 seconds update the db? (begin |
| ︙ | ︙ |