me
/
guix
Archived
1
0
Fork 0
Code

build-system/gnu: Always invoke `configure' with a relative path. 

* guix/build/gnu-build-system.scm (configure): Change SRCDIR to always
  be a relative path.
master
Ludovic Courtès 2012-08-30 23:30:42 +02:00
parent a436d2018e
commit 84209975fd
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
guix/build/gnu-build-system.scm
View File

@ -92,16 +92,24 @@
includedir "/include"))
'())
,@configure-flags))
(srcdir (getcwd)))
(format #t "source directory: ~s~%" srcdir)
(abs-srcdir (getcwd))
(srcdir (if out-of-source?
(string-append "../" (basename abs-srcdir))
".")))
(format #t "source directory: ~s (relative from build: ~s)~%"
abs-srcdir srcdir)
(if out-of-source?
(begin
(mkdir "../build")
(chdir "../build")))
(format #t "build directory: ~s~%" (getcwd))
(format #t "configure flags: ~s~%" flags)
;; Call `configure' with a relative path. Otherwise, GCC's build system
;; (for instance) records absolute source file names, which typically
;; contain the hash part of the `.drv' file, leading to a reference leak.
(zero? (apply system*
(string-append (if out-of-source? srcdir ".") "/configure")
(string-append srcdir "/configure")
flags))))
(define* (build #:key (make-flags '()) (parallel-build? #t)