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

	* mlib.adb: Update comments.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138680 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/mlib.adb b/gcc/ada/mlib.adb
index 0bb3a99..9fb5084 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;