diff options
Diffstat (limited to 'gcc/ada/osint.ads')
| -rw-r--r-- | gcc/ada/osint.ads | 24 |
1 files changed, 11 insertions, 13 deletions
diff --git a/gcc/ada/osint.ads b/gcc/ada/osint.ads index 28f90aa..f1a9f84 100644 --- a/gcc/ada/osint.ads +++ b/gcc/ada/osint.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2020, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2021, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -29,11 +29,11 @@ with Namet; use Namet; with Types; use Types; -with System; use System; +with System; use System; pragma Warnings (Off); -- This package is used also by gnatcoll -with System.OS_Lib; use System.OS_Lib; +with System.OS_Lib; use System.OS_Lib; pragma Warnings (On); with System.Storage_Elements; @@ -140,14 +140,12 @@ package Osint is -- path) in Name_Buffer, with the length in Name_Len. function Program_Name (Nam : String; Prog : String) return String_Access; - -- In the native compilation case, Create a string containing Nam. In the + -- In the native compilation case, creates a string containing Nam. In the -- cross compilation case, looks at the prefix of the current program being - -- run and prepend it to Nam. For instance if the program being run is + -- run and prepends it to Nam. For instance if the program being run is -- <target>-gnatmake and Nam is "gcc", the returned value will be a pointer - -- to "<target>-gcc". In the specific case where AAMP_On_Target is set, the - -- name "gcc" is mapped to "gnaamp", and names of the form "gnat*" are - -- mapped to "gnaamp*". This function clobbers Name_Buffer and Name_Len. - -- Also look at any suffix, e.g. gnatmake-4.1 -> "gcc-4.1". Prog is the + -- to "<target>-gcc". This function clobbers Name_Buffer and Name_Len. + -- Also looks at any suffix, e.g. gnatmake-4.1 -> "gcc-4.1". Prog is the -- default name of the current program being executed, e.g. "gnatmake", -- "gnatlink". @@ -718,9 +716,9 @@ private File_Names : File_Name_Array_Ptr := new File_Name_Array (1 .. Int (Argument_Count) + 2); -- As arguments are scanned, file names are stored in this array. The - -- strings do not have terminating NUL files. The array is extensible, - -- because when using project files, there may be more files than - -- arguments on the command line. + -- strings do not have terminating NULs. The array is extensible, because + -- when using project files, there may be more files than arguments on the + -- command line. type File_Index_Array is array (Int range <>) of Int; type File_Index_Array_Ptr is access File_Index_Array; @@ -772,7 +770,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 |