From: Piotr Trojanek <trojanek@adacore.com>
Date: Fri, 15 Jan 2021 13:08:07 +0000 (+0100)
Subject: [Ada] Style cleanups related to writing of ALI files
X-Git-Tag: basepoints/gcc-13~7782
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bed6d583e391b1921506a2c8f50bdcd6d887aa04;p=thirdparty%2Fgcc.git

[Ada] Style cleanups related to writing of ALI files

gcc/ada/

	* lib-writ.adb, osint.adb, osint.ads: Cleanup.
---

diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb
index 80546c1f7604..8f6b465b4b6d 100644
--- a/gcc/ada/lib-writ.adb
+++ b/gcc/ada/lib-writ.adb
@@ -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
diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb
index ea52a7aa19f6..85b631ff50e2 100644
--- a/gcc/ada/osint.adb
+++ b/gcc/ada/osint.adb
@@ -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
diff --git a/gcc/ada/osint.ads b/gcc/ada/osint.ads
index 8dfa7c2062b3..006cb386f1a0 100644
--- a/gcc/ada/osint.ads
+++ b/gcc/ada/osint.ads
@@ -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