mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00
Code Activity

(build-link, build-compile): Include CFLAGS in output. This is needed

Browse source 
to get "-pthread" into the builds, for example.
This commit is contained in:
Marius Vollmer 2004-09-24 01:19:05 +00:00
parent d9ffc9f7b1
commit 89acd190b8
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guile-config/guile-config.in
View file

@ -4,7 +4,7 @@
;;;; guile-config --- utility for linking programs with Guile ;;;; guile-config --- utility for linking programs with Guile
;;;; Jim Blandy <jim@red-bean.com> --- September 1997 ;;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; 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. ;; do something more dynamic (i.e. what do we need.
;; Display the flags, separated by spaces. ;; Display the flags, separated by spaces.
(display-separated (list (get-build-info 'CFLAGS) ""))
(if (or (string=? libdir "/usr/lib") (if (or (string=? libdir "/usr/lib")
(string=? libdir "/usr/lib/")) (string=? libdir "/usr/lib/"))
(display-separated (cons "-lguile -lguile-ltdl" other-flags)) (display-separated (cons "-lguile -lguile-ltdl" other-flags))
@ -181,7 +182,8 @@
;; `-I/usr/include' may cause trouble." For now we hard-code this. ;; `-I/usr/include' may cause trouble." For now we hard-code this.
;; Later maybe we can do something more dynamic. ;; Later maybe we can do something more dynamic.
(if (not (string=? (get-build-info 'includedir) "/usr/include")) (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) (define (help-compile)
(let ((dle display-line-error)) (let ((dle display-line-error))