From mboxrd@z Thu Jan  1 00:00:00 1970
From: ludo@gnu.org (Ludovic =?utf-8?Q?Court=C3=A8s?=)
Subject: Re: GCC front-ends
Date: Tue, 29 Oct 2013 00:23:58 +0100
Message-ID: <87eh75ughd.fsf@gnu.org>
References: <87wqlfutme.fsf@karetnikov.org> <87hacijnke.fsf@gnu.org>
	<87ppr4giie.fsf@karetnikov.org> <8738nzdig1.fsf@gnu.org>
	<87hacdmyc2.fsf_-_@karetnikov.org> <87bo2bkd7f.fsf@gnu.org>
	<87r4b5ou8f.fsf@karetnikov.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Return-path: <guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:35430)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1VawAI-0007SB-HZ
	for guix-devel@gnu.org; Mon, 28 Oct 2013 19:24:12 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1VawAC-000892-R8
	for guix-devel@gnu.org; Mon, 28 Oct 2013 19:24:06 -0400
Received: from mail3-relais-sop.national.inria.fr ([192.134.164.104]:64451)
	by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <ludo@gnu.org>)
	id 1VawAC-00088q-Lb
	for guix-devel@gnu.org; Mon, 28 Oct 2013 19:24:00 -0400
In-Reply-To: <87r4b5ou8f.fsf@karetnikov.org> (Nikita Karetnikov's message of
	"Tue, 29 Oct 2013 03:23:28 +0400")
List-Id: "Development of GNU Guix and the GNU System distribution."
	<guix-devel.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/guix-devel>,
	<mailto:guix-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/guix-devel>
List-Post: <mailto:guix-devel@gnu.org>
List-Help: <mailto:guix-devel-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/guix-devel>,
	<mailto:guix-devel-request@gnu.org?subject=subscribe>
Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org
Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org
To: Nikita Karetnikov <nikita@karetnikov.org>
Cc: guix-devel@gnu.org

Nikita Karetnikov <nikita@karetnikov.org> skribis:

>> That=E2=80=99s a bug, which may have been fixed in 4.8.2 no?  I=E2=80=99=
d rather not
>> workaround that if it=E2=80=99s been/being fixed.
>
> No, it has not been fixed.  Well, the previous patch didn=E2=80=99t conta=
in any
> workarounds.  However, users would have to pass =E2=80=98-g=E2=80=99 each=
 time they
> decide to compile anything.  Otherwise, their binaries will not work.
> Can we do anything about it?

I=E2=80=99d say that it=E2=80=99s not our business (above all, I=E2=80=99m =
surprised the Go
front-end is this broken.)

>> So the mapping has to be done in builder-side code, not in host-side
>> code, like =E2=80=98gcc-cross-boot0=E2=80=99 does.
>
>> Something like:
>
>>   `(cons "--enable-languages=3D" ,(string-join languages ",")
>>          (remove (cut string-match "--enable-languages.*" <>) ,flags))
>
> (define (custom-gcc gcc name languages)
>   (package (inherit gcc)
>     (name name)
>     (arguments
>      (substitute-keyword-arguments (package-arguments gcc)
>        ((#:configure-flags flags)
>         `(cons "--enable-languages=3D" ,(string-join languages ",")
>                (remove (cut string-match "--enable-languages.*" <>)
>                        ,flags)))
>        ((#:modules _)
>         '((guix build gnu-build-system)
>           (guix build utils)
>           (srfi srfi-1)))))))
>
> (define-public gfortran-4.8
>   (custom-gcc gcc-4.8 "gfortran" '("fortran")))
>
> The above code fails.

Argh, you also need (srfi srfi-26) for =E2=80=98cut=E2=80=99, sorry about t=
hat.

HTH,
Ludo=E2=80=99.