diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-21 09:52:52 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-21 09:52:52 +0000 |
| commit | 3decff5aede5c98631436cb9293dab346287b90d (patch) | |
| tree | 48fbc1f9e140568185208db10385d01e204813e4 /gcc/ada/exp_intr.adb | |
| parent | de6b1ec9838fba6fcba5d5b8d60dd0e05f36d000 (diff) | |
| download | gcc-3decff5aede5c98631436cb9293dab346287b90d.tar.gz | |
2010-10-21 Robert Dewar <dewar@adacore.com>
* exp_ch4.adb, exp_intr.adb, par-ch4.adb, scn.adb, sem_ch4.adb,
sem_res.adb, sem_util.adb, sinfo.ads, a-except-2005.adb: Minor
reformatting.
* snames.ads-tmpl: Add note on Name_Some (not a reserved keyword).
2010-10-21 Geert Bosch <bosch@adacore.com>
* ttypef.ads: Further cleanup of Safe_XXX float attributes.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165756 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_intr.adb')
| -rw-r--r-- | gcc/ada/exp_intr.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/exp_intr.adb b/gcc/ada/exp_intr.adb index 4ba5affffe5..977e335567d 100644 --- a/gcc/ada/exp_intr.adb +++ b/gcc/ada/exp_intr.adb @@ -127,7 +127,7 @@ package body Exp_Intr is -- Maximum of operand sizes begin - -- Nothing to do if the operands have the same modular type. + -- Nothing to do if the operands have the same modular type if Base_Type (T1) = Base_Type (T2) and then Is_Modular_Integer_Type (T1) @@ -148,6 +148,7 @@ package body Exp_Intr is Res := New_Copy (N); Set_Etype (Res, T3); + case Nkind (N) is when N_Op_And => Set_Entity (Res, Standard_Op_And); |