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

diff --git a/gcc/ada/mlib.adb b/gcc/ada/mlib.adb
index 9fb5084..f037bdb 100644 (file)
--- 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));