switch-c.adb, [...]: Minor reformatting.

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

	* switch-c.adb, inline.adb, usage.adb, opt.ads: Minor reformatting.

From-SVN: r188452

gcc/ada/ChangeLog

@@ -1,3 +1,7 @@
+2012-06-12  Robert Dewar  <dewar@adacore.com>
+
+	* switch-c.adb, inline.adb, usage.adb, opt.ads: Minor reformatting.
+
 2012-06-12  Robert Dewar  <dewar@adacore.com>
 
 	* sem_ch12.adb: Minor reformatting.

gcc/ada/inline.adb

@@ -295,6 +295,7 @@ package body Inline is
               and then Is_Inlined (Scop)
             then
                Add_Call (E, Scop);
+
                if Inline_Level = 1 then
                   return Inline_Call;
                else

gcc/ada/opt.ads

@@ -735,9 +735,10 @@ package Opt is
 
    Inline_Level : Nat := 0;
    --  GNAT
-   --  Set to indicate the inlining level: 0 means that an appropriate value
-   --  is to be computed by the compiler, 1 is for moderate inlining across
-   --  modules and 2 for full inlining across modules.
+   --  Set to indicate the inlining level: 0 means that an appropriate value is
+   --  to be computed by the compiler based on the optimization level (-gnatn),
+   --  1 is for moderate inlining across modules (-gnatn1) and 2 for full
+   --  inlining across modules (-gnatn2).
 
    Interface_Library_Unit : Boolean := False;
    --  GNATBIND

gcc/ada/switch-c.adb

@@ -732,7 +732,7 @@ package body Switch.C is
                Ptr := Ptr + 1;
                Inline_Active := True;
 
-               --  There may be a digit appended to the switch
+               --  There may be a digit (1 or 2) appended to the switch
 
                if Ptr <= Max then
                   C := Switch_Chars (Ptr);

gcc/ada/usage.adb

@@ -298,7 +298,7 @@ begin
 
    --  Line for -gnatn switch
 
-   Write_Switch_Char ("n[d]");
+   Write_Switch_Char ("n[1|2]");
    Write_Line ("Enable pragma Inline (both within and across units)");
 
    --  Line for -gnatN switch