From 8444b44a8c7ae67c11dee22f99b0a7b6a431d29d Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Thu, 18 Nov 2021 22:17:26 -0500 Subject: build: syscalls: Add a SET-CHILD-SUBREAPER! procedure. * guix/build/syscalls.scm (PR_SET_CHILD_SUBREAPER): New variable. (set-child-subreaper!): New procedure. --- guix/build/syscalls.scm | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'guix') diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index b305133c37..15b2ea6ff3 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -120,6 +120,8 @@ with-file-lock with-file-lock/no-wait + set-child-subreaper! + set-thread-name thread-name @@ -1421,6 +1423,11 @@ handler if the lock is already held by another process." (define PR_SET_NAME 15) ; (define PR_GET_NAME 16) +(define PR_SET_CHILD_SUBREAPER 36) + +(define (set-child-subreaper!) + "Set the CHILD_SUBREAPER capability for the current process." + (%prctl PR_SET_CHILD_SUBREAPER 1 0 0 0)) (define %max-thread-name-length ;; Maximum length in bytes of the process name, including the terminating -- cgit v1.2.3