diff options
Diffstat (limited to 'gcc/ada/exp_util.adb')
| -rw-r--r-- | gcc/ada/exp_util.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index a0c641bdce0..a3e09a6fd0f 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -4844,8 +4844,12 @@ package body Exp_Util is -- expression (and hence we would generate a never-ending loop in the -- front end). - if Is_Class_Wide_Type (Exp_Type) - and then Nkind (Parent (Exp)) = N_Object_Renaming_Declaration + -- For now, disable this test. class-wide renamings can have side + -- effects, and this test causes such side effects to be duplicated. + -- To be sorted out later ??? + + if False and then Is_Class_Wide_Type (Exp_Type) + and then Nkind (Parent (Exp)) = N_Object_Renaming_Declaration then return; end if; |