Overview
| Comment: | Added missing include |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
36f2395e6389154e7936e96e8f5a15d3 |
| User & Date: | mrwellan on 2017-06-22 22:13:44 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-06-22
| ||
| 23:12 | A few more missing includes check-in: eaf721a3d3 user: mrwellan tags: v1.64 | |
| 22:13 | Added missing include check-in: 36f2395e63 user: mrwellan tags: v1.64 | |
| 10:23 | Added emergency patch to common:cpu* and runs:process-expanded-tests to throttle back when cpu load on homehost is too high check-in: 1a2b766602 user: mrwellan tags: v1.64 | |
Changes
Modified emergency-patch-2.scm from [6b319c1cbc] to [ea1d685be2].
1 2 3 4 5 6 7 | (define (common:wait-for-cpuload maxload numcpus waitdelay #!key (count 1000) (msg #f)(remote-host #f)) (let* ((loadavg (common:get-cpu-load remote-host)) (first (car loadavg)) (next (cadr loadavg)) (adjload (* maxload numcpus)) (loadjmp (- first next))) | > | 1 2 3 4 5 6 7 8 | (include "test_records.scm") (define (common:wait-for-cpuload maxload numcpus waitdelay #!key (count 1000) (msg #f)(remote-host #f)) (let* ((loadavg (common:get-cpu-load remote-host)) (first (car loadavg)) (next (cadr loadavg)) (adjload (* maxload numcpus)) (loadjmp (- first next))) |
| ︙ | ︙ |