From: Robert Dewar Date: Tue, 5 Aug 2008 09:28:55 +0000 (+0200) Subject: mlib.adb: Minor code reorganization Minor reformatting X-Git-Tag: releases/gcc-4.4.0~3367 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9300855f4155b2217953abe553978ed2865bccd2;p=thirdparty%2Fgcc.git mlib.adb: Minor code reorganization Minor reformatting 2008-08-05 Robert Dewar * mlib.adb: Minor code reorganization Minor reformatting From-SVN: r138688 --- diff --git a/gcc/ada/mlib.adb b/gcc/ada/mlib.adb index 9fb50849e789..f037bdb144e6 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));