Overview
| Comment: | Fixed #f numcpus bug |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
e94599755425765da97442e9b266d93f |
| User & Date: | mrwellan on 2019-12-24 13:17:37 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-12-24
| ||
| 14:48 | Fixed other bug in cpu load. The ssh command was not quoted. check-in: 6f67e19539 user: mrwellan tags: v1.65 | |
| 13:17 | Fixed #f numcpus bug check-in: e945997554 user: mrwellan tags: v1.65 | |
|
2019-12-09
| ||
| 15:42 | added note NEED to reprocess testconfig here... check-in: 16da8558ed user: mmgraham tags: v1.65 | |
Changes
Modified common.scm from [4250e720f5] to [20d85336e3].
| ︙ | ︙ | |||
1960 1961 1962 1963 1964 1965 1966 |
(let* ((actual-host (or remote-host (get-host-name))))
(or (common:get-cached-info actual-host "num-cpus" age: 86400) ;; hosts had better not be changing the number of cpus too often!
(let* ((proc (lambda ()
(let loop ((numcpu 0)
(inl (read-line)))
(if (eof-object? inl)
(begin
| | | 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 |
(let* ((actual-host (or remote-host (get-host-name))))
(or (common:get-cached-info actual-host "num-cpus" age: 86400) ;; hosts had better not be changing the number of cpus too often!
(let* ((proc (lambda ()
(let loop ((numcpu 0)
(inl (read-line)))
(if (eof-object? inl)
(begin
(common:write-cached-info actual-host "num-cpus" numcpu)
numcpu)
(loop (if (string-match "^processor\\s+:\\s+\\d+$" inl)
(+ numcpu 1)
numcpu)
(read-line))))))
(result (if remote-host
(with-input-from-pipe
|
| ︙ | ︙ |