From bed6d583e391b1921506a2c8f50bdcd6d887aa04 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Fri, 15 Jan 2021 14:08:07 +0100 Subject: [PATCH] [Ada] Style cleanups related to writing of ALI files gcc/ada/ * lib-writ.adb, osint.adb, osint.ads: Cleanup. --- gcc/ada/lib-writ.adb | 2 +- gcc/ada/osint.adb | 2 +- gcc/ada/osint.ads | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index 80546c1..8f6b465 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 ea52a7a..85b631f 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 8dfa7c2..006cb38 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 -- 2.7.4