Re: libsigsegv does not compile in core-updates

[Ludovic Courtès]

Hi!

Andreas Enge <address@hidden> skribis:

> Here is what is output:

[...]

> configure:3168: gcc    conftest.c  >&5
> ld: cannot find crt1.o: No such file or directory
> ld: cannot find crti.o: No such file or directory
> collect2: error: ld returned 1 exit status
> configure:3172: $? = 1
> configure:3210: result: no
>
> Does anyone else have the same problem? What could be happening?

Most likely my search path commit broke something.  Can you check the
value of ‘LIBRARY_PATH’ at the beginning of the log file?

It should have /path/to/glibc-2.17/lib, but I guess it doesn’t.

Hmm, indeed ‘implicit-search-paths’ in gnu.scm is always empty.

I think this patch should fix it:

diff --git a/guix/build-system/gnu.scm b/guix/build-system/gnu.scm
index d5ad1e3..bee8430 100644
--- a/guix/build-system/gnu.scm
+++ b/guix/build-system/gnu.scm
@@ -135,6 +135,13 @@ use `--strip-all' as the arguments to `strip'."
   ;; Store passed to STANDARD-INPUTS.
   (make-parameter #f))
 
+(define (standard-packages)
+  "Return the list of standard packages used as implicit inputs."
+
+  ;; Resolve (gnu packages base) lazily to hide circular dependency.
+  (let ((distro (resolve-module '(gnu packages base))))
+    (module-ref distro '%final-inputs)))
+
 (define standard-inputs
   (memoize
    (lambda (system)
@@ -148,9 +155,7 @@ System: GCC, GNU Make, Bash, Coreutils, etc."
            (z
             (error "invalid standard input" z)))
 
-          ;; Resolve (gnu packages base) lazily to hide circular dependency.
-          (let* ((distro (resolve-module '(gnu packages base)))
-                 (inputs (module-ref distro '%final-inputs)))
+          (let ((inputs (standard-packages)))
             (append inputs
                     (append-map (match-lambda
                                  ((name package _ ...)
@@ -203,7 +208,7 @@ which could lead to gratuitous input divergence."
                       (package-native-search-paths p))
                      (_
                       '()))
-                    implicit-inputs)
+                    (standard-packages))
         '()))
 
   (define builder

Can you confirm?

Thanks,
Ludo’.