From 646acd10c872d900fcd6ae141ed485cd9d25f77e Mon Sep 17 00:00:00 2001 From: Vincent Celier Date: Tue, 5 Aug 2008 11:13:53 +0200 Subject: [PATCH] mlib.adb: Update comments. 2008-08-05 Vincent Celier * mlib.adb: Update comments. From-SVN: r138680 --- gcc/ada/mlib.adb | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/gcc/ada/mlib.adb b/gcc/ada/mlib.adb index 0bb3a99..9fb5084 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; -- 2.7.4