Overview
| Comment: | updated warning message for load limit |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 | v1.6423 |
| Files: | files | file ages | folders |
| SHA1: |
fe8d6d54559b67a5ae307aa345821172 |
| User & Date: | bjbarcla on 2017-07-07 10:36:30 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-07-07
| ||
| 16:57 | Added delte-run option check-in: 1c79e4a834 user: ritikaag tags: v1.64 | |
| 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 | |
Changes
Modified common.scm from [b935a43287] to [af8ef99e5c].
| ︙ | ︙ | |||
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 delayed " waitdelay " seconds due to load " first " exceeding max of " adjload " (normalized load-limit: " 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))))))
|
| ︙ | ︙ |