From a77842bdf959270baae1ec9f7d82a3217a083a56 Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Fri, 18 Mar 2005 12:49:26 +0100 Subject: exp_dist.adb (Get_PCS_Name): Move from Exp_Dist body to Sem_Dist spec... 2005-03-17 Thomas Quinot * 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 --- gcc/ada/rtsfind.adb | 19 ++++++------------- 1 file changed, 6 insertions(+), 13 deletions(-) (limited to 'gcc/ada/rtsfind.adb') 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; -- cgit v1.1