diff options
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r-- | guix-build-coordinator/agent-messaging/http/server.scm | 5 | ||||
-rw-r--r-- | guix-build-coordinator/coordinator.scm | 11 | ||||
-rw-r--r-- | guix-build-coordinator/utils.scm | 12 |
3 files changed, 28 insertions, 0 deletions
diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm index e3ced38..aaa88cb 100644 --- a/guix-build-coordinator/agent-messaging/http/server.scm +++ b/guix-build-coordinator/agent-messaging/http/server.scm @@ -431,6 +431,11 @@ port. Also, the port used can be changed by passing the --port option.\n" (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name "compute hash")) + (const #t)) + (with-exception-handler (lambda (exn) (put-message channel diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 3dd49e3..200dc21 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -998,6 +998,11 @@ (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name "allocator")) + (const #t)) + (with-exception-handler (lambda (exn) (simple-format (current-error-port) @@ -1120,6 +1125,12 @@ (condvar (make-condition-variable))) (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name + (symbol->string event-name))) + (const #t)) + (lock-mutex mtx) (while #t (with-exception-handler diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 17cabc8..a91e771 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -1076,6 +1076,12 @@ References: ~a~%" (if (procedure? thread-count-parameter) (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name + (string-append name " q t"))) + (const #t)) + (while #t (sleep 15) (with-mutex queue-mutex @@ -1229,6 +1235,12 @@ References: ~a~%" (if (procedure? thread-count-parameter) (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name + (string-append name " p t "))) + (const #t)) + (lock-mutex pool-mutex) (while #t (with-exception-handler |