[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 80546c1f76041f82ca811bbf37b62f88b363adf2..8f6b465b4b6dfd74f28c43d89c35b99c5e37dcab 100644 (file)
--- 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 ea52a7aa19f6b1abe1ae4c5bbbade69d3f9d476d..85b631ff50e2221c4de27b88f3414e95389683b4 100644 (file)
--- 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 8dfa7c2062b3d73e2b4dda28ecd54d6be9ceefb2..006cb386f1a0670cbfc4b658c655c760a820b300 100644 (file)
--- 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