mlib.adb: Update comments.

2008-08-05  Vincent Celier  <celier@adacore.com>

	* mlib.adb: Update comments.

From-SVN: r138680

diff --git a/gcc/ada/mlib.adb b/gcc/ada/mlib.adb
index 0bb3a99fbfb96901c08400166d0af453e43a67a1..9fb50849e789c84fb939622b6b8ace7eb22c421f 100644 (file)
--- a/gcc/ada/mlib.adb
+++ b/gcc/ada/mlib.adb
@@ -266,8 +266,12 @@ package body MLib is
                               Success := Status and Actual_Len = Len + 3;
 
                               if Success then
-                                 Set_Read_Only (
-                                   Name_Buffer (1 .. Name_Len - 1));
+                                 --  Set_Read_Only is used here, not
+                                 --  Set_Non_Writable, so that gprbuild can be
+                                 --  compiled with older compilers.
+
+                                 Set_Read_Only
+                                   (Name_Buffer (1 .. Name_Len - 1));
                               end if;
                            end if;
                         end if;