From 1fa4cb204c83e89ecc77d7e94ce22ccc4562c96e Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 31 Oct 2006 19:05:34 +0100 Subject: rtsfind.adb: Remove s-polint from comment as it exists no more. * rtsfind.adb: Remove s-polint from comment as it exists no more. * rtsfind.ads: Move entity RE_Get_Active_Partition_Id to package System.DSA_Services. Move all the entities in obsolete package System.PolyORB_Interface to System.Partition_Interface. (RE_Storage_Size): New function in System.Tasking. (RE_Get_Ceiling): New entity. (RE_Set_Ceiling): New entity. (RO_PE_Get_Ceiling): New entity. (RO_RE_Set_Ceiling): New entity. (Inherit_CPP_DT): New entity From-SVN: r118296 --- gcc/ada/rtsfind.adb | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'gcc/ada/rtsfind.adb') diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb index 892a5b4..2ab53d4 100644 --- a/gcc/ada/rtsfind.adb +++ b/gcc/ada/rtsfind.adb @@ -826,8 +826,7 @@ package body Rtsfind is -- Otherwise we need the check if we are going after one of -- the critical entities in System.RPC in stubs mode. - -- ??? Should we do this for other s-parint/s-polint entities - -- too? + -- ??? Should we do this for other s-parint entities too? if (Distribution_Stub_Mode = Generate_Receiver_Stub_Body or else @@ -1062,7 +1061,7 @@ package body Rtsfind is -- Bump count of violations if we are in configurable run-time -- mode and this is not a continuation message. - if Configurable_Run_Time_Mode and then Msg (1) /= '\' then + if Configurable_Run_Time_Mode and then Msg (Msg'First) /= '\' then Configurable_Run_Time_Violations := Configurable_Run_Time_Violations + 1; end if; -- cgit v1.1