Overview
| Comment: | Updated load waiting so that it scales with the amount above the threshold that the load is |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 | v1.6514 |
| Files: | files | file ages | folders |
| SHA1: |
d12eb7e791044c266d07998cd4e30239 |
| User & Date: | jmoon18 on 2018-08-22 18:04:10 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-08-23
| ||
| 18:33 | fix to sync runs independent to changes in tests check-in: 67b2c7d27d user: pjhatwal tags: v1.65 | |
|
2018-08-22
| ||
| 18:04 | Updated load waiting so that it scales with the amount above the threshold that the load is check-in: d12eb7e791 user: jmoon18 tags: v1.65, v1.6514 | |
| 17:25 | Add retry few times when having trouble creating parent dir for link in linktree check-in: 5d8a2f9b91 user: mrwellan tags: v1.65 | |
Changes
Modified common.scm from [7b07dd9c19] to [8b5ebebcbe].
| ︙ | ︙ | |||
1731 1732 1733 1734 1735 1736 1737 | (maxload (if force-maxload maxload-in (max maxload-in 0.5))) ;; so maxload must be greater than 0.5 for now BUG - FIXME? (first (car loadavg)) (next (cadr loadavg)) (adjload (* maxload (max 1 numcpus))) ;; possible bug where numcpus (or could be maxload) is zero, crude fallback is to at least use 1 (loadjmp (- first next)) | | | 1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 1744 1745 |
(maxload (if force-maxload
maxload-in
(max maxload-in 0.5))) ;; so maxload must be greater than 0.5 for now BUG - FIXME?
(first (car loadavg))
(next (cadr loadavg))
(adjload (* maxload (max 1 numcpus))) ;; possible bug where numcpus (or could be maxload) is zero, crude fallback is to at least use 1
(loadjmp (- first next))
(adjwait (min (+ 300 (random 10)) (* (+ (random 10)(/ (- 1000 count) 10) waitdelay) (- first adjload) ) ))) ;; add some randomness to the time to break any alignment where netbatch dumps many jobs to machines simultaneously
(debug:print-info 1 *default-log-port* "Checking cpuload on " (or remote-host "localhost") ", maxload: " maxload
", load: " first ", adjload: " adjload ", loadjmp: " loadjmp)
(cond
((and (> first adjload)
(> count 0))
(debug:print-info 0 *default-log-port* "server start delayed " adjwait " seconds due to load " first " exceeding max of " adjload " on server " (or remote-host (get-host-name)) " (normalized load-limit: " maxload ") " (if msg msg ""))
(thread-sleep! adjwait)
|
| ︙ | ︙ |