diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-20 16:26:52 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-20 16:26:52 +0200 |
| commit | b9ccd710833e0e15b517b52d02a81f3bb00f60fe (patch) | |
| tree | 122a52e13113725281ee8f44daad63f2e351bf93 /gcc/ada/s-fileio.adb | |
| parent | c4075a15127d8abf6b3a40e5385f9eb0e2502c25 (diff) | |
| download | gcc-b9ccd710833e0e15b517b52d02a81f3bb00f60fe.tar.gz | |
s-fileio.adb: Minor reformatting
2008-08-20 Robert Dewar <dewar@adacore.com>
* s-fileio.adb: Minor reformatting
From-SVN: r139298
Diffstat (limited to 'gcc/ada/s-fileio.adb')
| -rw-r--r-- | gcc/ada/s-fileio.adb | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 1109b2295af..d2af05c2048 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -1001,11 +1001,13 @@ package body System.File_IO is -- Non-zero when the given errno value indicates a non- -- existing file. - pragma Import (C, Is_File_Not_Found_Error, - "__gnat_is_file_not_found_error"); + pragma Import + (C, Is_File_Not_Found_Error, + "__gnat_is_file_not_found_error"); + begin - if Is_File_Not_Found_Error (Cint (System.OS_Lib.Errno)) - /= 0 + if + Is_File_Not_Found_Error (Cint (System.OS_Lib.Errno)) /= 0 then raise Name_Error; else |