diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-11-24 22:06:01 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-12-02 16:26:27 +0000 |
| commit | ec9c3bd5d2d6d91a9967bf153ebf1411e6bb10c0 (patch) | |
| tree | 6248b537baef50d57923e38d23f7354bae46ae1c /gcc/ada/exp_ch13.adb | |
| parent | b045f2f2205495b61d63133b16e56c35acbf8090 (diff) | |
| download | gcc-ec9c3bd5d2d6d91a9967bf153ebf1411e6bb10c0.zip gcc-ec9c3bd5d2d6d91a9967bf153ebf1411e6bb10c0.tar.gz gcc-ec9c3bd5d2d6d91a9967bf153ebf1411e6bb10c0.tar.bz2 | |
[Ada] Cleanups related to expansion of dispatching primitives
gcc/ada/
* doc/gnat_rm/standard_and_implementation_defined_restrictions.rst
(No_Dispatching_Calls): Fix whitespace in example code.
* gnat_rm.texi: Regenerate.
* exp_ch13.adb (Expand_N_Freeze_Entity): Replace low-level
membership test with a high-level wrapper.
* exp_ch3.adb (Expand_Freeze_Record_Type): Remove unnecessary
initialization of list of wrapper declarations and unnecessary
guard for list of their bodies (if no bodies are created then
Append_Freeze_Actions is a no-op).
Diffstat (limited to 'gcc/ada/exp_ch13.adb')
| -rw-r--r-- | gcc/ada/exp_ch13.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch13.adb b/gcc/ada/exp_ch13.adb index 479deca..6665daa 100644 --- a/gcc/ada/exp_ch13.adb +++ b/gcc/ada/exp_ch13.adb @@ -491,7 +491,7 @@ package body Exp_Ch13 is -- a constrained type extension with inherited discriminants. if Is_Type (E_Scope) - and then Ekind (E_Scope) not in Concurrent_Kind + and then not Is_Concurrent_Type (E_Scope) then E_Scope := Scope (E_Scope); |