Overview
| Comment: | Remove info printing of parallel-api-requests |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.70 |
| Files: | files | file ages | folders |
| SHA1: |
4bec7c5319a6c5c10c3fb3d59fc6bde6 |
| User & Date: | matt on 2022-08-02 07:56:23 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-08-02
| ||
| 07:59 | Throttle polling in runs.scm when we are just waiting for tests to complete running check-in: 090d26210c user: matt tags: v1.70 | |
| 07:56 | Remove info printing of parallel-api-requests check-in: 4bec7c5319 user: matt tags: v1.70 | |
| 07:17 | turn off discard of dbdats check-in: 76a1ae1920 user: matt tags: v1.70 | |
Changes
Modified dbfile.scm from [9987c907b6] to [995b13ba22].
| ︙ | ︙ | |||
1202 1203 1204 1205 1206 1207 1208 |
#;(subdb (if have-struct
(dbfile:get-subdb dbstruct run-id)
#f))
(use-mutex (> *api-process-request-count* 25))) ;; was 25
(if (and use-mutex
(common:low-noise-print 120 "over-50-parallel-api-requests"))
(dbfile:print-err *api-process-request-count* " parallel api requests being processed in process " (current-process-id) ", throttling access"))
| | | 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 |
#;(subdb (if have-struct
(dbfile:get-subdb dbstruct run-id)
#f))
(use-mutex (> *api-process-request-count* 25))) ;; was 25
(if (and use-mutex
(common:low-noise-print 120 "over-50-parallel-api-requests"))
(dbfile:print-err *api-process-request-count* " parallel api requests being processed in process " (current-process-id) ", throttling access"))
#;(if (common:low-noise-print 600 (conc "parallel-api-requests" *max-api-process-requests*))
(dbfile:print-err "Parallel api request count: " *api-process-request-count* " max parallel requests: " *max-api-process-requests*))
(condition-case
(begin
(if use-mutex (mutex-lock! *db-with-db-mutex*))
(let ((res (apply proc dbdat db params)))
(if use-mutex (mutex-unlock! *db-with-db-mutex*))
;; (if (vector? dbstruct)(db:done-with dbstruct run-id r/w))
|
| ︙ | ︙ |