From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jan Nieuwenhuizen Subject: bug#39975: Shepherd 0.7.0 [PATCH] services: Support compilation on the Hurd. Date: Sat, 07 Mar 2020 16:09:03 +0100 Message-ID: <87y2sc6w34.fsf@gnu.org> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:470:142:3::10]:58308) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jAb5Y-0008Oz-An for bug-guix@gnu.org; Sat, 07 Mar 2020 10:10:05 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1jAb5W-0002HD-VV for bug-guix@gnu.org; Sat, 07 Mar 2020 10:10:04 -0500 Received: from debbugs.gnu.org ([209.51.188.43]:41351) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1jAb5W-0002GH-SN for bug-guix@gnu.org; Sat, 07 Mar 2020 10:10:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1jAb5V-0005LF-Ne for bug-guix@gnu.org; Sat, 07 Mar 2020 10:10:01 -0500 Sender: "Debbugs-submit" Resent-Message-ID: Received: from eggs.gnu.org ([2001:470:142:3::10]:58059) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jAb4c-0008IA-UH for bug-guix@gnu.org; Sat, 07 Mar 2020 10:09:08 -0500 List-Id: Bug reports for GNU Guix List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane-mx.org@gnu.org Sender: "bug-Guix" To: 39975@debbugs.gnu.org --=-=-= Content-Type: text/plain Hi, Compilation on the Hurd fails with --8<---------------cut here---------------start------------->8--- GUILEC modules/shepherd.go ;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0 ;;; or pass the --no-auto-compile argument to disable. ;;; compiling /gnu/store/wq6m0l53hffnf9qa9hwdjqskcw54amf6-guile-2.2.6/bin/guild ;;; WARNING: compilation of /gnu/store/wq6m0l53hffnf9qa9hwdjqskcw54amf6-guile-2.2.6/bin/guild failed: ;;; failed to create path for auto-compiled file "/gnu/store/wq6m0l53hffnf9qa9hwdjqskcw54amf6-guile-2.2.6/bin/guild" Backtrace: In ice-9/boot-9.scm: 222:29 19 (map1 _) 222:29 18 (map1 _) 222:29 17 (map1 _) 222:29 16 (map1 _) 222:29 15 (map1 _) 222:29 14 (map1 (((shepherd comm)) ((shepherd config)) ((# #)))) 222:29 13 (map1 (((shepherd config)) ((shepherd system)))) 222:17 12 (map1 (((shepherd system)))) 2800:17 11 (resolve-interface (shepherd system) #:select _ #:hide _ ?) In ice-9/threads.scm: 390:8 10 (_ _) In ice-9/boot-9.scm: 2726:13 9 (_) In ice-9/threads.scm: 390:8 8 (_ _) In ice-9/boot-9.scm: 2994:20 7 (_) 2312:4 6 (save-module-excursion #) 3014:26 5 (_) In unknown file: 4 (primitive-load-path "shepherd/system" #) In ice-9/eval.scm: 626:19 3 (_ #) 245:16 2 (_ #) In unknown file: 1 (dynamic-func "prctl" #) In ice-9/boot-9.scm: 752:25 0 (dispatch-exception _ _ _) ice-9/boot-9.scm:752:25: In procedure dispatch-exception: In procedure dynamic-pointer: Symbol not found: prctl Makefile:2070: recipe for target 'modules/shepherd.go' failed --8<---------------cut here---------------end--------------->8--- Find patch attached. Greetings, janneke --=-=-= Content-Type: text/x-patch; charset=utf-8 Content-Disposition: inline; filename=0001-services-Support-compilation-on-the-Hurd.patch Content-Transfer-Encoding: quoted-printable >From ac06193300aea17d6e6d1ad784585542815af94b Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sat, 7 Mar 2020 16:04:27 +0100 Subject: [PATCH] services: Support compilation on the Hurd. * modules/shepherd/system.scm.in (prctl): Catch compile-time error. --- modules/shepherd/system.scm.in | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/modules/shepherd/system.scm.in b/modules/shepherd/system.scm.in index 769404a..7def22d 100644 --- a/modules/shepherd/system.scm.in +++ b/modules/shepherd/system.scm.in @@ -1,6 +1,7 @@ ;; system.scm -- Low-level operating system interface. ;; Copyright (C) 2013, 2014, 2016, 2018 Ludovic Court=C3=A8s ;; Copyright (C) 2018 Carlo Zancanaro +;; Copyright (C) 2020 Jan (janneke) Nieuwenhuizen ;; ;; This file is part of the GNU Shepherd. ;; @@ -145,7 +146,9 @@ ctrlaltdel(8) and see kernel/reboot.c in Linux." (define PR_SET_CHILD_SUBREAPER @PR_SET_CHILD_SUBREAPER@) =20 (define prctl - (if (dynamic-func "prctl" (dynamic-link)) + (if (catch #t + (lambda _ (dynamic-func "prctl" (dynamic-link))) + (const #f)) (let ((proc (syscall->procedure long "prctl" (list int int)))) (lambda (process operation) "Perform an operation on the given process" --=20 2.24.0 --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable --=20 Jan Nieuwenhuizen | GNU LilyPond http://lilypond.org Freelance IT http://JoyofSource.com | Avatar=C2=AE http://AvatarAcademy.com --=-=-=--