diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2021-11-18 22:17:26 -0500 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2021-11-20 08:57:00 -0500 |
| commit | 8444b44a8c7ae67c11dee22f99b0a7b6a431d29d (patch) | |
| tree | 82391281741e53b7c021ce4ec4a772a9fc96f062 /guix/build | |
| parent | 83580b949d31a48139167f1fac9f4d9bdd7a0175 (diff) | |
| download | guix-patches-8444b44a8c7ae67c11dee22f99b0a7b6a431d29d.tar guix-patches-8444b44a8c7ae67c11dee22f99b0a7b6a431d29d.tar.gz | |
build: syscalls: Add a SET-CHILD-SUBREAPER! procedure.
* guix/build/syscalls.scm (PR_SET_CHILD_SUBREAPER): New variable.
(set-child-subreaper!): New procedure.
Diffstat (limited to 'guix/build')
| -rw-r--r-- | guix/build/syscalls.scm | 7 |
1 files changed, 7 insertions, 0 deletions
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) ;<linux/prctl.h> (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 |