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

[guix-commits]

apteryx pushed a commit to branch core-updates-frozen
in repository guix.

commit 8444b44a8c7ae67c11dee22f99b0a7b6a431d29d
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Thu Nov 18 22:17:26 2021 -0500

    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(+)

diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index b305133..15b2ea6 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