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
This commit is contained in:
parent
4c7be31052
commit
2137e8a657
|
@ -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.
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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);
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue