OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

s-fileio.adb: Minor reformatting

Browse Source 
2008-08-20  Robert Dewar  <dewar@adacore.com>

	* s-fileio.adb: Minor reformatting

From-SVN: r139298
This commit is contained in:
Robert Dewar 2008-08-20 16:26:52 +02:00 committed by Arnaud Charlet
parent c4075a1512
commit b9ccd71083
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/ada/s-fileio.adb
View File

@ -1001,11 +1001,13 @@ package body System.File_IO is
-- Non-zero when the given errno value indicates a non- -- Non-zero when the given errno value indicates a non-
-- existing file. -- existing file.
pragma Import (C, Is_File_Not_Found_Error, pragma Import
"__gnat_is_file_not_found_error"); (C, Is_File_Not_Found_Error,
"__gnat_is_file_not_found_error");
begin begin
if Is_File_Not_Found_Error (Cint (System.OS_Lib.Errno)) if
/= 0 Is_File_Not_Found_Error (Cint (System.OS_Lib.Errno)) /= 0
then then
raise Name_Error; raise Name_Error;
else else