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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 186e332963d75e7c23306d95a1b39dd0b1cc5501..1c07d5e52bf30329ea1b26aa66fc43f55a6e29c5 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/ada/s-imgint.adb b/gcc/ada/s-imgint.adb
index 4fad4e66e75db4f962d554d7dd678a57e48fbc96..0d19e56fcad0e686914255d24f7c7b889ff0533c 100644 (file)
--- 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 9e7199bf528a6e7aa1206d4843b854a89fb620b9..6c4a78356baf8947e24e62bd1b077abfeb7385de 100644 (file)
--- 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 95ff789d96e3b4557e75ff39d014a6fb1630a9c0..a70908a28c4297e41b5bb4c8b0dfd42b633a665b 100644 (file)
--- 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 c6df94c936ac46ba7640fcb1b2d30a9d041f3425..c466db3f6717827b04f1dccb3b6ae5ef7deac77e 100644 (file)
--- 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 a808c02db59012ebc9718a56bcef520bc23069f3..e5787373a454001e779a52056b5d1a58bb0ca419 100644 (file)
--- 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;