diff options
Diffstat (limited to 'gcc/ada/sem_dist.adb')
| -rw-r--r-- | gcc/ada/sem_dist.adb | 17 |
1 files changed, 5 insertions, 12 deletions
diff --git a/gcc/ada/sem_dist.adb b/gcc/ada/sem_dist.adb index 5ce3fb3284b..c48361092fe 100644 --- a/gcc/ada/sem_dist.adb +++ b/gcc/ada/sem_dist.adb @@ -332,19 +332,12 @@ package body Sem_Dist is RS_Pkg_Specif := Parent (Remote_Subp_Decl); RS_Pkg_E := Defining_Entity (RS_Pkg_Specif); - if Ekind (Remote_Subp) = E_Procedure - and then Is_Asynchronous (Remote_Subp) - then - Async_E := Standard_True; - else - Async_E := Standard_False; - end if; + Async_E := + Boolean_Literals (Ekind (Remote_Subp) = E_Procedure + and then Is_Asynchronous (Remote_Subp)); - if Has_All_Calls_Remote (RS_Pkg_E) then - All_Calls_Remote_E := Standard_True; - else - All_Calls_Remote_E := Standard_False; - end if; + All_Calls_Remote_E := + Boolean_Literals (Has_All_Calls_Remote (RS_Pkg_E)); Local_Addr := Make_Attribute_Reference (Loc, |