diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2016-04-20 10:05:41 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-20 12:05:41 +0200 |
| commit | b83dd5ecea2899fc6220aa8be8f999ed61a6b62f (patch) | |
| tree | 3438abf83b3f97d2bcec2c7f57ba4b88008aa762 | |
| parent | 2697b189020b174f822a756914af6a04c905b435 (diff) | |
| download | gcc-b83dd5ecea2899fc6220aa8be8f999ed61a6b62f.zip gcc-b83dd5ecea2899fc6220aa8be8f999ed61a6b62f.tar.gz gcc-b83dd5ecea2899fc6220aa8be8f999ed61a6b62f.tar.bz2 | |
s-imgllu.adb, [...]: Minor reformatting.
2016-04-20 Hristian Kirtchev <kirtchev@adacore.com>
* s-imgllu.adb, sem_util.adb, s-imgint.adb, s-imguns.adb,
s-imglli.adb: Minor reformatting.
From-SVN: r235251
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/s-imgint.adb | 12 | ||||
| -rw-r--r-- | gcc/ada/s-imglli.adb | 9 | ||||
| -rw-r--r-- | gcc/ada/s-imgllu.adb | 3 | ||||
| -rw-r--r-- | gcc/ada/s-imguns.adb | 3 | ||||
| -rw-r--r-- | gcc/ada/sem_util.adb | 4 |
6 files changed, 27 insertions, 9 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 186e332..1c07d5e 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 2016-04-20 Hristian Kirtchev <kirtchev@adacore.com> + * s-imgllu.adb, sem_util.adb, s-imgint.adb, s-imguns.adb, + s-imglli.adb: Minor reformatting. + +2016-04-20 Hristian Kirtchev <kirtchev@adacore.com> + * sem_res.adb (Rewrite_Renamed_Operator): Do not rewrite the renamed operator when the associated node appears within a pre/postcondition. diff --git a/gcc/ada/s-imgint.adb b/gcc/ada/s-imgint.adb index 4fad4e6..0d19e56 100644 --- a/gcc/ada/s-imgint.adb +++ b/gcc/ada/s-imgint.adb @@ -32,7 +32,9 @@ package body System.Img_Int is procedure Set_Digits - (T : Integer; S : in out String; P : in out Natural); + (T : Integer; + S : in out String; + P : in out Natural); -- Set digits of absolute value of T, which is zero or negative. We work -- with the negative of the value so that the largest negative number is -- not a special case. @@ -64,7 +66,10 @@ package body System.Img_Int is ---------------- procedure Set_Digits - (T : Integer; S : in out String; P : in out Natural) is + (T : Integer; + S : in out String; + P : in out Natural) + is begin if T <= -10 then Set_Digits (T / 10, S, P); @@ -83,7 +88,8 @@ package body System.Img_Int is procedure Set_Image_Integer (V : Integer; S : in out String; - P : in out Natural) is + P : in out Natural) + is begin if V >= 0 then Set_Digits (-V, S, P); diff --git a/gcc/ada/s-imglli.adb b/gcc/ada/s-imglli.adb index 9e7199b..6c4a783 100644 --- a/gcc/ada/s-imglli.adb +++ b/gcc/ada/s-imglli.adb @@ -32,7 +32,9 @@ package body System.Img_LLI is procedure Set_Digits - (T : Long_Long_Integer; S : in out String; P : in out Natural); + (T : Long_Long_Integer; + S : in out String; + P : in out Natural); -- Set digits of absolute value of T, which is zero or negative. We work -- with the negative of the value so that the largest negative number is -- not a special case. @@ -64,7 +66,10 @@ package body System.Img_LLI is ---------------- procedure Set_Digits - (T : Long_Long_Integer; S : in out String; P : in out Natural) is + (T : Long_Long_Integer; + S : in out String; + P : in out Natural) + is begin if T <= -10 then Set_Digits (T / 10, S, P); diff --git a/gcc/ada/s-imgllu.adb b/gcc/ada/s-imgllu.adb index 95ff789..a70908a 100644 --- a/gcc/ada/s-imgllu.adb +++ b/gcc/ada/s-imgllu.adb @@ -56,7 +56,8 @@ package body System.Img_LLU is procedure Set_Image_Long_Long_Unsigned (V : Long_Long_Unsigned; S : in out String; - P : in out Natural) is + P : in out Natural) + is begin if V >= 10 then Set_Image_Long_Long_Unsigned (V / 10, S, P); diff --git a/gcc/ada/s-imguns.adb b/gcc/ada/s-imguns.adb index c6df94c..c466db3 100644 --- a/gcc/ada/s-imguns.adb +++ b/gcc/ada/s-imguns.adb @@ -56,7 +56,8 @@ package body System.Img_Uns is procedure Set_Image_Unsigned (V : Unsigned; S : in out String; - P : in out Natural) is + P : in out Natural) + is begin if V >= 10 then Set_Image_Unsigned (V / 10, S, P); diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index a808c02..e5787373 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -20183,8 +20183,8 @@ package body Sem_Util is and then Present (Corresponding_Spec_Of_Stub (P)) then U := Corresponding_Spec_Of_Stub (P); - elsif Nkind (P) = N_Subprogram_Renaming_Declaration - then + + elsif Nkind (P) = N_Subprogram_Renaming_Declaration then U := Corresponding_Spec (P); end if; |