diff options
| author | Laurent GUERBY <laurent@guerby.net> | 2009-05-04 15:32:00 +0000 |
|---|---|---|
| committer | Laurent Guerby <guerby@gcc.gnu.org> | 2009-05-04 15:32:00 +0000 |
| commit | ffef121932a2522684893c009a966d1cb43123e2 (patch) | |
| tree | 91af37f36c7586409c27cccb9192eedf888b6c82 /gcc | |
| parent | c3ba8d324364854de37e464689cddc73b55eb632 (diff) | |
| download | gcc-ffef121932a2522684893c009a966d1cb43123e2.zip gcc-ffef121932a2522684893c009a966d1cb43123e2.tar.gz gcc-ffef121932a2522684893c009a966d1cb43123e2.tar.bz2 | |
re PR ada/38874 (gnatmake doesn't pass through --param options)
2009-05-04 Laurent GUERBY <laurent@guerby.net>
PR ada/38874
* make.adb (Scan_Make_Arg): Pass --param= to compiler and linker.
From-SVN: r147102
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/make.adb | 7 |
2 files changed, 12 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index c11325e..384f439 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2009-05-04 Laurent GUERBY <laurent@guerby.net> + + PR ada/38874 + * make.adb (Scan_Make_Arg): Pass --param= to compiler and linker. + 2009-04-29 Ed Schonberg <schonberg@adacore.com> * sem_ch8.adb (Analyze_Subprogram_Renaming): Improve error message on diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index 3206bc1..955e618 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -7778,6 +7778,12 @@ package body Make is 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 @@ package body Make is 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 |