Overview
| Comment: | updated warning message for load limit |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
5ba0a35d1bbe03c3164ff414a6c34ed5 |
| User & Date: | bjbarcla on 2017-07-07 10:35:38 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-07-07
| ||
| 10:36 | updated warning message for load limit check-in: fe8d6d5455 user: bjbarcla tags: v1.64, v1.6423 | |
| 10:35 | updated warning message for load limit check-in: 5ba0a35d1b user: bjbarcla tags: v1.64 | |
|
2017-07-06
| ||
| 11:07 | updated nexttag.rb with action placeholders check-in: e821f05608 user: bjbarcla tags: v1.64 | |
Changes
Modified common.scm from [f91f68035e] to [b935a43287].
| ︙ | ︙ | |||
1489 1490 1491 1492 1493 1494 1495 |
(first (car loadavg))
(next (cadr loadavg))
(adjload (* maxload numcpus))
(loadjmp (- first next)))
(cond
((and (> first adjload)
(> count 0))
| | | 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 |
(first (car loadavg))
(next (cadr loadavg))
(adjload (* maxload numcpus))
(loadjmp (- first next)))
(cond
((and (> first adjload)
(> count 0))
(debug:print-info 0 *default-log-port* "server start waiting " waitdelay " seconds due to load " first " exceeding max of " adjload "(normalized load: " maxload ") " (if msg msg ""))
(thread-sleep! waitdelay)
(common:wait-for-cpuload maxload numcpus waitdelay count: (- count 1)))
((and (> loadjmp numcpus)
(> count 0))
(debug:print-info 0 *default-log-port* "waiting " waitdelay " seconds due to load jump " loadjmp " > numcpus " numcpus (if msg msg ""))
(thread-sleep! waitdelay)
(common:wait-for-cpuload maxload numcpus waitdelay count: (- count 1))))))
|
| ︙ | ︙ |