diff options
| author | Robert Dewar <dewar@adacore.com> | 2012-06-12 12:19:14 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-06-12 14:19:14 +0200 |
| commit | 2137e8a657d6a1e851d2926309031f6d16807c84 (patch) | |
| tree | feafdfde508c9bd65f27698b99c87d2c8bb85419 /gcc | |
| parent | 4c7be3105294ae11d15bcb9265a1199a34666e1b (diff) | |
| download | gcc-2137e8a657d6a1e851d2926309031f6d16807c84.zip gcc-2137e8a657d6a1e851d2926309031f6d16807c84.tar.gz gcc-2137e8a657d6a1e851d2926309031f6d16807c84.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/inline.adb | 1 | ||||
| -rw-r--r-- | gcc/ada/opt.ads | 7 | ||||
| -rw-r--r-- | gcc/ada/switch-c.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/usage.adb | 2 |
5 files changed, 11 insertions, 5 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index b8b8cd9..4205bb8 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,9 @@ 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. 2012-06-12 Eric Botcazou <ebotcazou@adacore.com> diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index 01f8ff1..c3947ed 100644 --- a/gcc/ada/inline.adb +++ b/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 diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads index a44d338..97e7ba7 100644 --- a/gcc/ada/opt.ads +++ b/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 diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index cc72473..32c3275 100644 --- a/gcc/ada/switch-c.adb +++ b/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); diff --git a/gcc/ada/usage.adb b/gcc/ada/usage.adb index 292d681..f95e318 100644 --- a/gcc/ada/usage.adb +++ b/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 |