diff options
Diffstat (limited to 'gcc/ada/exp_ch2.adb')
| -rw-r--r-- | gcc/ada/exp_ch2.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch2.adb b/gcc/ada/exp_ch2.adb index 130d74d80db..e68e9a67a6e 100644 --- a/gcc/ada/exp_ch2.adb +++ b/gcc/ada/exp_ch2.adb @@ -661,7 +661,7 @@ package body Exp_Ch2 is Set_Etype (N, Etype (Prival (E))); Scop := Current_Scope; - -- Find entity for protected operation, which must be on scope stack. + -- Find entity for protected operation, which must be on scope stack while not Is_Protected_Type (Scope (Scop)) loop Scop := Scope (Scop); |