From 0acc5ebd5c33e719d5ab24608af9a489dc204729 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 26 Mar 2020 20:31:21 +0100 Subject: [PATCH] [Ada] Do not expect Global or Depends on single protected objects 2020-06-15 Piotr Trojanek gcc/ada/ * contracts.adb (Analyze_Object_Contract): Do not expect Global/Depends on single protected units. --- gcc/ada/contracts.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/gcc/ada/contracts.adb b/gcc/ada/contracts.adb index 300bbf9..ae85d2c 100644 --- a/gcc/ada/contracts.adb +++ b/gcc/ada/contracts.adb @@ -1067,10 +1067,10 @@ package body Contracts is Analyze_External_Property_In_Decl_Part (Prag, NC_Val); end if; - -- The anonymous object created for a single concurrent type carries - -- pragmas Depends and Globat of the type. + -- The anonymous object created for a single task type carries + -- pragmas Depends and Global of the type. - if Is_Single_Concurrent_Object (Obj_Id) then + if Is_Single_Task_Object (Obj_Id) then -- Analyze Global first, as Depends may mention items classified -- in the global categorization. -- 2.7.4