diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-12 10:49:00 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-12 10:49:00 +0000 |
| commit | ee0d6223922750a305a14bab9c214431e34ad950 (patch) | |
| tree | 0ce03a545bad41a76a87037012bd107c2a9823dd /gcc/ada/exp_util.adb | |
| parent | 6da4d28906cc4f0e548ae9f03794f3a2a508a427 (diff) | |
| download | gcc-ee0d6223922750a305a14bab9c214431e34ad950.tar.gz | |
2010-10-12 Pascal Obry <obry@adacore.com>
* adaint.c (__gnat_number_of_cpus): Add implementation for Windows.
2010-10-12 Arnaud Charlet <charlet@adacore.com>
* make.adb (Globalize): New procedure.
(Compile): Set Do_Codepeer_Globalize_Step when -gnatC is used.
(Gnatmake): Call Globalize when needed.
(Process_Restrictions_Or_Restriction_Warnings): Ignore Restrictions
pragmas in CodePeer mode.
(Adjust_Global_Switches): Set No_Initialize_Scalars in CodePeer mode,
to generate simpler and consistent code.
2010-10-12 Bob Duff <duff@adacore.com>
* exp_util.adb (Remove_Side_Effects): Disable previous change,
can cause side effects to be duplicated.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165359 138bc75d-0d04-0410-961f-82ee72b054a4
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; |