Overview
| Comment: | Reduce noise |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
2ec14a566dfab0bc412fa668097746b2 |
| User & Date: | matt on 2023-01-12 07:26:08 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-01-12
| ||
| 17:48 | Added tasks_queue to db:sync-main-list to sync this table to NFS check-in: d461a68372 user: mmgraham tags: v1.80 | |
| 07:26 | Reduce noise check-in: 2ec14a566d user: matt tags: v1.80 | |
| 07:11 | Oops. Was setting conn to #f before cleaning up connections. Not 100% sure but suspect that was a bad thing. check-in: 0ee24d5747 user: matt tags: v1.80 | |
Changes
Modified runs.scm from [52f98f2a96] to [0255133584].
| ︙ | ︙ | |||
1773 1774 1775 1776 1777 1778 1779 | (let* ((jobgroup (runs:testdat-jobgroup testdat-in)) (can-run-more-tests (runs:dat-can-run-more-tests runsdat)) (last-jobs-check-time (runs:dat-last-jobs-check-time runsdat)) (should-check-jobs (match can-run-more-tests ((can-run-more-flag num-running nr-in-jobgroup max-concurrent-jobs . params) (if (< (- max-concurrent-jobs num-running) 25) (begin | | | 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 |
(let* ((jobgroup (runs:testdat-jobgroup testdat-in))
(can-run-more-tests (runs:dat-can-run-more-tests runsdat))
(last-jobs-check-time (runs:dat-last-jobs-check-time runsdat))
(should-check-jobs (match can-run-more-tests
((can-run-more-flag num-running nr-in-jobgroup max-concurrent-jobs . params)
(if (< (- max-concurrent-jobs num-running) 25)
(begin
(debug:print-info 2 *default-log-port*
"less than 20 jobs headroom, ("max-concurrent-jobs
"-"num-running")>20. Forcing prelaunch check.")
#t)
#f))
(else #f)))) ;; no record yet
(if should-check-jobs
(let loop-can-run-more
|
| ︙ | ︙ |