diff options
| author | Robert Dewar <dewar@adacore.com> | 2007-12-13 11:22:45 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-13 11:22:45 +0100 |
| commit | 31897c04da0668370ffd77e938d93b681213d0c5 (patch) | |
| tree | 1acfbdbbc83be8bfe346f879a8bcc03ebced291b /gcc/ada | |
| parent | 395b50802642418272545c3f12c8f66ee959d145 (diff) | |
| download | gcc-31897c04da0668370ffd77e938d93b681213d0c5.zip gcc-31897c04da0668370ffd77e938d93b681213d0c5.tar.gz gcc-31897c04da0668370ffd77e938d93b681213d0c5.tar.bz2 | |
back_end.adb: Recognize -fno-inline
2007-12-06 Robert Dewar <dewar@adacore.com>
* back_end.adb: Recognize -fno-inline
From-SVN: r130822
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/back_end.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/back_end.adb b/gcc/ada/back_end.adb index 4f7a411..461049e 100644 --- a/gcc/ada/back_end.adb +++ b/gcc/ada/back_end.adb @@ -123,7 +123,6 @@ package body Back_End is ----------------------------- procedure Scan_Compiler_Arguments is - Next_Arg : Pos := 1; subtype Big_String is String (Positive); @@ -216,6 +215,13 @@ package body Back_End is -- Store any other GCC switches Store_Compilation_Switch (Switch_Chars); + + -- Special check, the back end switch -fno-inline also sets the + -- front end flag to entirely inhibit all inlining. + + if Switch_Chars (First .. Last) = "fno-inline" then + Opt.Suppress_All_Inlining := True; + end if; end if; end Scan_Back_End_Switches; |