OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Hristian Kirtchev 2016-04-20 10:05:41 +00:00 committed by Arnaud Charlet
parent 2697b18902
commit b83dd5ecea
6 changed files with 27 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -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

12
gcc/ada/s-imgint.adb
View File

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

9
gcc/ada/s-imglli.adb
View File

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

3
gcc/ada/s-imgllu.adb
View File

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

3
gcc/ada/s-imguns.adb
View File

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

4
gcc/ada/sem_util.adb
View File

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