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

gcc/ada/ChangeLog

 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.

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);

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);

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);

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);

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;