From: Robert Dewar <dewar@adacore.com>
Date: Thu, 13 Dec 2007 10:22:45 +0000 (+0100)
Subject: back_end.adb: Recognize -fno-inline
X-Git-Tag: releases/gcc-4.3.0~1074
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=31897c04da0668370ffd77e938d93b681213d0c5;p=thirdparty%2Fgcc.git

back_end.adb: Recognize -fno-inline

2007-12-06  Robert Dewar  <dewar@adacore.com>

	* back_end.adb: Recognize -fno-inline

From-SVN: r130822
---

diff --git a/gcc/ada/back_end.adb b/gcc/ada/back_end.adb
index 4f7a41134bb3..461049e325db 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;