From a160b4e046d11b51cbedb936b13d15e3d0b19f7e Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Mon, 26 Oct 2020 12:15:34 +0100 Subject: [Ada] Reuse Is_Concurrent_Type when detecting protected or task types gcc/ada/ * exp_ch13.adb, exp_ch9.adb, sem_ch8.adb, sem_util.adb: Replace a combination of Is_Protected_Type and Is_Task_Type by Is_Concurrent_Type. --- gcc/ada/exp_ch13.adb | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'gcc/ada/exp_ch13.adb') diff --git a/gcc/ada/exp_ch13.adb b/gcc/ada/exp_ch13.adb index 30f101d..89efca9 100644 --- a/gcc/ada/exp_ch13.adb +++ b/gcc/ada/exp_ch13.adb @@ -582,9 +582,8 @@ package body Exp_Ch13 is Install_Visible_Declarations (E_Scope); end if; - if Is_Package_Or_Generic_Package (E_Scope) or else - Is_Protected_Type (E_Scope) or else - Is_Task_Type (E_Scope) + if Is_Concurrent_Type (E_Scope) + or else Is_Package_Or_Generic_Package (E_Scope) then Install_Private_Declarations (E_Scope); end if; -- cgit v1.1