nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ld-wrapper: Make sure debugging output goes through. 

* gnu/packages/ld-wrapper.in (ld-wrapper): Add call to 'force-output'.
This commit is contained in:
Ludovic Courtès 2018-03-29 17:42:15 +02:00
parent c90fd42020
commit 6764538327
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gnu/packages/ld-wrapper.in
View File

@ -15,7 +15,7 @@ main="(@ (gnu build-support ld-wrapper) ld-wrapper)"
exec @GUILE@ -c "(load-compiled \"@SELF@.go\") (apply $main (cdr (command-line)))" "$@" exec @GUILE@ -c "(load-compiled \"@SELF@.go\") (apply $main (cdr (command-line)))" "$@"
!# !#
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -270,7 +270,8 @@ impure library ~s~%"
"ld-wrapper: libraries linked: ~s~%" libs) "ld-wrapper: libraries linked: ~s~%" libs)
(format (current-error-port) (format (current-error-port)
"ld-wrapper: invoking `~a' with ~s~%" "ld-wrapper: invoking `~a' with ~s~%"
%real-ld args)) %real-ld args)
(force-output (current-error-port)))
(apply execl %real-ld (basename %real-ld) args))) (apply execl %real-ld (basename %real-ld) args)))
;;; ld-wrapper.scm ends here ;;; ld-wrapper.scm ends here