From: Vincent Celier <celier@adacore.com>
Date: Tue, 5 Aug 2008 09:13:53 +0000 (+0200)
Subject: mlib.adb: Update comments.
X-Git-Tag: releases/gcc-4.4.0~3375
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=646acd10c872d900fcd6ae141ed485cd9d25f77e;p=thirdparty%2Fgcc.git

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 0bb3a99fbfb9..9fb50849e789 100644
--- 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;