diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-10-31 19:05:34 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-10-31 19:05:34 +0100 |
| commit | 1fa4cb204c83e89ecc77d7e94ce22ccc4562c96e (patch) | |
| tree | 561d401a0a3d44a61ab5f50d57587e5ee2dd5a31 /gcc/ada/rtsfind.adb | |
| parent | de397a3d0a7388314eab3f1ddfb0062d0375bb08 (diff) | |
| download | gcc-1fa4cb204c83e89ecc77d7e94ce22ccc4562c96e.zip gcc-1fa4cb204c83e89ecc77d7e94ce22ccc4562c96e.tar.gz gcc-1fa4cb204c83e89ecc77d7e94ce22ccc4562c96e.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada/rtsfind.adb')
| -rw-r--r-- | gcc/ada/rtsfind.adb | 5 |
1 files changed, 2 insertions, 3 deletions
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; |