build: syscalls: Add a SET-CHILD-SUBREAPER! procedure.

* guix/build/syscalls.scm (PR_SET_CHILD_SUBREAPER): New variable.
(set-child-subreaper!): New procedure.
This commit is contained in:
Maxim Cournoyer 2021-11-18 22:17:26 -05:00
parent 83580b949d
commit 8444b44a8c
No known key found for this signature in database
GPG key ID: 1260E46482E63562

View file

@ -120,6 +120,8 @@ (define-module (guix build syscalls)
with-file-lock
with-file-lock/no-wait
set-child-subreaper!
set-thread-name
thread-name
@ -1421,6 +1423,11 @@ (define %prctl
(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