diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-01-15 14:08:07 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-06 03:51:22 -0400 |
| commit | bed6d583e391b1921506a2c8f50bdcd6d887aa04 (patch) | |
| tree | 7e69c40fb19f292eda743c8f4f4d8c0c3c8fdad7 | |
| parent | 04598eb03b1b44c4fc3c253841a7672066835ed9 (diff) | |
| download | gcc-bed6d583e391b1921506a2c8f50bdcd6d887aa04.zip gcc-bed6d583e391b1921506a2c8f50bdcd6d887aa04.tar.gz gcc-bed6d583e391b1921506a2c8f50bdcd6d887aa04.tar.bz2 | |
[Ada] Style cleanups related to writing of ALI files
gcc/ada/
* lib-writ.adb, osint.adb, osint.ads: Cleanup.
| -rw-r--r-- | gcc/ada/lib-writ.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/osint.adb | 2 | ||||
| -rw-r--r-- | 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 |