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>
|
2012-06-12 Robert Dewar <dewar@adacore.com>
|
||||||
|
|
||||||
* sem_ch12.adb: Minor reformatting.
|
* sem_ch12.adb: Minor reformatting.
|
||||||
|
|
|
@ -295,6 +295,7 @@ package body Inline is
|
||||||
and then Is_Inlined (Scop)
|
and then Is_Inlined (Scop)
|
||||||
then
|
then
|
||||||
Add_Call (E, Scop);
|
Add_Call (E, Scop);
|
||||||
|
|
||||||
if Inline_Level = 1 then
|
if Inline_Level = 1 then
|
||||||
return Inline_Call;
|
return Inline_Call;
|
||||||
else
|
else
|
||||||
|
|
|
@ -735,9 +735,10 @@ package Opt is
|
||||||
|
|
||||||
Inline_Level : Nat := 0;
|
Inline_Level : Nat := 0;
|
||||||
-- GNAT
|
-- GNAT
|
||||||
-- Set to indicate the inlining level: 0 means that an appropriate value
|
-- Set to indicate the inlining level: 0 means that an appropriate value is
|
||||||
-- is to be computed by the compiler, 1 is for moderate inlining across
|
-- to be computed by the compiler based on the optimization level (-gnatn),
|
||||||
-- modules and 2 for full inlining across modules.
|
-- 1 is for moderate inlining across modules (-gnatn1) and 2 for full
|
||||||
|
-- inlining across modules (-gnatn2).
|
||||||
|
|
||||||
Interface_Library_Unit : Boolean := False;
|
Interface_Library_Unit : Boolean := False;
|
||||||
-- GNATBIND
|
-- GNATBIND
|
||||||
|
|
|
@ -732,7 +732,7 @@ package body Switch.C is
|
||||||
Ptr := Ptr + 1;
|
Ptr := Ptr + 1;
|
||||||
Inline_Active := True;
|
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
|
if Ptr <= Max then
|
||||||
C := Switch_Chars (Ptr);
|
C := Switch_Chars (Ptr);
|
||||||
|
|
|
@ -298,7 +298,7 @@ begin
|
||||||
|
|
||||||
-- Line for -gnatn switch
|
-- 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)");
|
Write_Line ("Enable pragma Inline (both within and across units)");
|
||||||
|
|
||||||
-- Line for -gnatN switch
|
-- Line for -gnatN switch
|
||||||
|
|
Loading…
Reference in New Issue