diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-05 11:28:55 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-05 11:28:55 +0200 |
| commit | 9300855f4155b2217953abe553978ed2865bccd2 (patch) | |
| tree | b8841bf825c925ffbfedc34eee36f5cfcb7c65c2 /gcc/ada/mlib.adb | |
| parent | 584ec6e003fc31bd56624c5f564e71b02a9e296d (diff) | |
| download | gcc-9300855f4155b2217953abe553978ed2865bccd2.zip gcc-9300855f4155b2217953abe553978ed2865bccd2.tar.gz gcc-9300855f4155b2217953abe553978ed2865bccd2.tar.bz2 | |
mlib.adb: Minor code reorganization Minor reformatting
2008-08-05 Robert Dewar <dewar@adacore.com>
* mlib.adb: Minor code reorganization
Minor reformatting
From-SVN: r138688
Diffstat (limited to 'gcc/ada/mlib.adb')
| -rw-r--r-- | gcc/ada/mlib.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/ada/mlib.adb b/gcc/ada/mlib.adb index 9fb5084..f037bdb 100644 --- a/gcc/ada/mlib.adb +++ b/gcc/ada/mlib.adb @@ -263,12 +263,13 @@ package body MLib is -- Set Success to True only if the newly -- created file has been correctly written. - Success := Status and Actual_Len = Len + 3; + Success := Status and then Actual_Len = Len + 3; if Success then - -- Set_Read_Only is used here, not - -- Set_Non_Writable, so that gprbuild can be - -- compiled with older compilers. + + -- Set_Read_Only is used here, rather than + -- Set_Non_Writable, so that gprbuild can + -- he compiled with older compilers. Set_Read_Only (Name_Buffer (1 .. Name_Len - 1)); |