FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[Ada] Style cleanups related to writing of ALI files

Browse source 
gcc/ada/

	* lib-writ.adb, osint.adb, osint.ads: Cleanup.
This commit is contained in:
Piotr Trojanek 2021-01-15 14:08:07 +01:00 • committed by Pierre-Marie de Rodat
parent 04598eb03b
commit bed6d583e3
3 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gcc/ada/lib-writ.adb
View file

@ -1014,7 +1014,7 @@ package body Lib.Writ is
return;
end if;
-- Build sorted source dependency table.
-- Build sorted source dependency table
for Unum in Units.First .. Last_Unit loop
if Cunit_Entity (Unum) = Empty

2
gcc/ada/osint.adb
View file

@ -3162,7 +3162,7 @@ package body Osint is
-- Write_With_Check --
----------------------
procedure Write_With_Check (A : Address; N : Integer) is
procedure Write_With_Check (A : Address; N : Integer) is
Ignore : Boolean;
begin
if N = Write (Output_FD, A, N) then

2
gcc/ada/osint.ads
View file

@ -772,7 +772,7 @@ private
procedure Write_Info (Info : String);
-- Implements Write_Binder_Info, Write_Debug_Info, and Write_Library_Info
procedure Write_With_Check (A : Address; N : Integer);
procedure Write_With_Check (A : Address; N : Integer);
-- Writes N bytes from buffer starting at address A to file whose FD is
-- stored in Output_FD, and whose file name is stored as a File_Name_Type
-- in Output_File_Name. A check is made for disk full, and if this is