From 9300855f4155b2217953abe553978ed2865bccd2 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Tue, 5 Aug 2008 11:28:55 +0200 Subject: [PATCH] mlib.adb: Minor code reorganization Minor reformatting 2008-08-05 Robert Dewar * mlib.adb: Minor code reorganization Minor reformatting From-SVN: r138688 --- gcc/ada/mlib.adb | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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)); -- 2.47.2