From: Piotr Trojanek Date: Fri, 14 Oct 2022 18:22:34 +0000 (+0200) Subject: ada: Fix detection of external calls to protected objects in instances X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=7dee088c9db6a420b60379dd576493d12c055ffd;p=platform%2Fupstream%2Fgcc.git ada: Fix detection of external calls to protected objects in instances Detection of external-vs-internal calls to protected objects relied on the scope stack. This didn't work when the call appeared in an instance of generic unit, because instances are analyzed in different context to where they appear. gcc/ada/ * exp_ch6.adb (Expand_Protected_Subprogram_Call): Examine scope tree and not the scope stack. --- diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 9380f3d..0fa9768 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -6240,7 +6240,7 @@ package body Exp_Ch6 is -- The object may be a component of some other data structure, in which -- case this must be handled as an inter-object call. - if not In_Open_Scopes (Scop) + if not Scope_Within_Or_Same (Inner => Current_Scope, Outer => Scop) or else Is_Entry_Wrapper (Current_Scope) or else not Is_Entity_Name (Name (N)) then