This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [PATCH][ping][Ada] ada/38874 gnatmake --param
- From: Laurent GUERBY <laurent at guerby dot net>
- To: Arnaud Charlet <charlet at adacore dot com>
- Cc: Jakub Jelinek <jakub at redhat dot com>, gcc-patches <gcc-patches at gcc dot gnu dot org>
- Date: Mon, 04 May 2009 17:39:22 +0200
- Subject: Re: [PATCH][ping][Ada] ada/38874 gnatmake --param
- References: <1233863778.24883.101.camel@localhost> <1234898620.8927.20.camel@localhost> <1235581949.11347.205.camel@localhost> <1241426657.21067.24.camel@localhost> <20090504094803.GA31426@adacore.com>
- Reply-to: laurent at guerby dot net
Testing before commiting (I thought Jakub tested my first patch :) I
found out that --param=x did work as expected so I changed the
processing position slightly in the Scan_Make_Arg "if" forest, here is
what I tested successfully and commited as r147102.
2009-05-04 Laurent GUERBY <laurent@guerby.net>
PR ada/38874
* make.adb (Scan_Make_Arg): Pass --param= to compiler and linker.
Index: make.adb
===================================================================
--- make.adb (revision 147098)
+++ make.adb (working copy)
@@ -7778,6 +7778,12 @@
end;
end if;
+ elsif Argv'Length >= 8 and then
+ Argv (1 .. 8) = "--param="
+ then
+ Add_Switch (Argv, Compiler, And_Save => And_Save);
+ Add_Switch (Argv, Linker, And_Save => And_Save);
+
else
Scan_Make_Switches (Argv, Success);
end if;
@@ -7792,6 +7798,7 @@
elsif (Argv'Length > 5 and then Argv (1 .. 5) = "-RTS=")
or else (Argv'Length > 5 and then Argv (1 .. 5) = "-GCC=")
+ or else (Argv'Length > 8 and then Argv (1 .. 7) = "-param=")
or else (Argv'Length > 10 and then Argv (1 .. 10) = "-GNATLINK=")
or else (Argv'Length > 10 and then Argv (1 .. 10) = "-GNATBIND=")
then
On Mon, 2009-05-04 at 11:48 +0200, Arnaud Charlet wrote:
> > Ping.
>
> You need to specify the name of the function which is modified in the
> ChangeLog. OK with this change.
>
> Arno
>