diff options
author | Thomas Quinot <quinot@adacore.com> | 2005-03-18 12:49:26 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-03-18 12:49:26 +0100 |
commit | a77842bdf959270baae1ec9f7d82a3217a083a56 (patch) | |
tree | 7cb890101cd69f15c9c050917024b75c2e82a801 /gcc/ada/rtsfind.adb | |
parent | 2ccf2fb35ea3eda056496c378fc5d07d363e0407 (diff) | |
download | gcc-a77842bdf959270baae1ec9f7d82a3217a083a56.zip gcc-a77842bdf959270baae1ec9f7d82a3217a083a56.tar.gz gcc-a77842bdf959270baae1ec9f7d82a3217a083a56.tar.bz2 |
exp_dist.adb (Get_PCS_Name): Move from Exp_Dist body to Sem_Dist spec...
2005-03-17 Thomas Quinot <quinot@adacore.com>
* exp_dist.adb (Get_PCS_Name): Move from Exp_Dist body to Sem_Dist
spec, to make this predicate available to other units.
* rtsfind.adb (Check_RPC): Use Sem_Dist.Get_PCS_Name instead of
reimplementing it.
* sem_ch8.adb: Disable expansion of remote access-to-subprogram types
when no distribution runtime library is available.
* sem_res.adb, sem_dist.adb: Disable expansion of remote
access-to-subprogram types when no distribution runtime library is
available.
(Get_PCS_Name): Move from Exp_Dist body to Sem_Dist spec, to make this
predicate available to other units.
* sem_dist.ads (Get_PCS_Name): Move from Exp_Dist body to Sem_Dist
spec, to make this predicate available to other units.
From-SVN: r96668
Diffstat (limited to 'gcc/ada/rtsfind.adb')
-rw-r--r-- | gcc/ada/rtsfind.adb | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb index 15a2fd1..cfe0850 100644 --- a/gcc/ada/rtsfind.adb +++ b/gcc/ada/rtsfind.adb @@ -43,6 +43,7 @@ with Opt; use Opt; with Restrict; use Restrict; with Sem; use Sem; with Sem_Ch7; use Sem_Ch7; +with Sem_Dist; use Sem_Dist; with Sem_Util; use Sem_Util; with Sinfo; use Sinfo; with Stand; use Stand; @@ -838,20 +839,12 @@ package body Rtsfind is E = RE_Params_Stream_Type or else E = RE_Request_Access) + and then Get_PCS_Name = Name_No_DSA then - declare - DSA_Implementation : constant Entity_Id := - RTE (RE_DSA_Implementation); - begin - if Chars (Entity (Expression - (Parent (DSA_Implementation)))) = Name_No_DSA - then - Set_Standard_Error; - Write_Str ("distribution feature not supported"); - Write_Eol; - raise Unrecoverable_Error; - end if; - end; + Set_Standard_Error; + Write_Str ("distribution feature not supported"); + Write_Eol; + raise Unrecoverable_Error; end if; end Check_RPC; |