Changes In Branch v1.80-servload-side Through [4131c9a1b5] Excluding Merge-Ins
This is equivalent to a diff from c7687dbe89 to 4131c9a1b5
2023-04-24
| ||
11:31 | merged fork Leaf check-in: fe1ecbaa1b user: mmgraham tags: v1.80-servload-side | |
2023-04-15
| ||
09:14 | merged fork check-in: 532a2581c9 user: matt tags: v1.80 | |
2023-04-14
| ||
12:56 | committed merge check-in: 4131c9a1b5 user: mmgraham tags: v1.80-servload-side | |
06:17 | Missed a location using launch:is-test-alive, converted it to commonmod: check-in: c7687dbe89 user: matt tags: v1.80 | |
2023-04-13
| ||
15:54 | added assert for good db to dbmod:with-db check-in: b6788d6803 user: mmgraham tags: v1.80 | |
15:37 | Removed assert that is in wrong place check-in: f026e9979d user: mrwellan tags: v1.80 | |
Modified dbmod.scm from [297c5db2ed] to [b5162d04d6].
︙ | ︙ | |||
101 102 103 104 105 106 107 108 109 110 111 112 113 114 | (begin (sync-proc last-update) ;; MOVE THIS CALL TO INSIDE THE sync-proc CALL (dbr:dbstruct-last-update-set! dbstruct curr-secs) ))) (if use-mutex (mutex-lock! *db-with-db-mutex*)) (let* ((res (apply proc dbdat dbh params))) (if use-mutex (mutex-unlock! *db-with-db-mutex*)) res))) (define (db:with-db dbstruct run-id w/r proc . params) (dbmod:with-db dbstruct run-id w/r proc params)) | > | 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 | (begin (sync-proc last-update) ;; MOVE THIS CALL TO INSIDE THE sync-proc CALL (dbr:dbstruct-last-update-set! dbstruct curr-secs) ))) (assert (sqlite3:database? dbh) "FATAL: bad db handle in dbmod:with-db") (if use-mutex (mutex-lock! *db-with-db-mutex*)) (let* ((res (apply proc dbdat dbh params))) (if use-mutex (mutex-unlock! *db-with-db-mutex*)) res))) (define (db:with-db dbstruct run-id w/r proc . params) (dbmod:with-db dbstruct run-id w/r proc params)) |
︙ | ︙ |