mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 04:10:18 +02:00
(build-link, build-compile): Include CFLAGS in output. This is needed
to get "-pthread" into the builds, for example.
This commit is contained in:
parent
d9ffc9f7b1
commit
89acd190b8
1 changed files with 4 additions and 2 deletions
|
@ -4,7 +4,7 @@
|
|||
;;;; guile-config --- utility for linking programs with Guile
|
||||
;;;; Jim Blandy <jim@red-bean.com> --- September 1997
|
||||
;;;;
|
||||
;;;; Copyright (C) 1998, 2001 Free Software Foundation, Inc.
|
||||
;;;; Copyright (C) 1998, 2001, 2004 Free Software Foundation, Inc.
|
||||
;;;;
|
||||
;;;; This library is free software; you can redistribute it and/or
|
||||
;;;; modify it under the terms of the GNU Lesser General Public
|
||||
|
@ -148,6 +148,7 @@
|
|||
;; do something more dynamic (i.e. what do we need.
|
||||
|
||||
;; Display the flags, separated by spaces.
|
||||
(display-separated (list (get-build-info 'CFLAGS) ""))
|
||||
(if (or (string=? libdir "/usr/lib")
|
||||
(string=? libdir "/usr/lib/"))
|
||||
(display-separated (cons "-lguile -lguile-ltdl" other-flags))
|
||||
|
@ -181,7 +182,8 @@
|
|||
;; `-I/usr/include' may cause trouble." For now we hard-code this.
|
||||
;; Later maybe we can do something more dynamic.
|
||||
(if (not (string=? (get-build-info 'includedir) "/usr/include"))
|
||||
(display-line "-I" (get-build-info 'includedir))))
|
||||
(display-separated (list "-I" (get-build-info 'includedir) "")))
|
||||
(display-line (get-build-info 'CFLAGS)))
|
||||
|
||||
(define (help-compile)
|
||||
(let ((dle display-line-error))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue