diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 12:09:06 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 12:09:06 +0200 |
| commit | c2db4b320dc594f7f5724c712fec7612e1744918 (patch) | |
| tree | ee88f2d362365e5135d7544118b03fafb9e771d2 /gcc/ada/exp_intr.adb | |
| parent | ceb0dcaaad6b6dc2fbea74a76531ca7b05101d9c (diff) | |
| download | gcc-c2db4b320dc594f7f5724c712fec7612e1744918.zip gcc-c2db4b320dc594f7f5724c712fec7612e1744918.tar.gz gcc-c2db4b320dc594f7f5724c712fec7612e1744918.tar.bz2 | |
[multiple changes]
2011-08-04 Arnaud Charlet <charlet@adacore.com>
* prj-env.adb: Remove local debug traces.
2011-08-04 Yannick Moy <moy@adacore.com>
* checks.adb (Apply_Float_Conversion_Check): correct a typo where Lo_OK
was used instead of Hi_OK, which could cause a read of an uninitialized
value later on. Detected while working on the new warning.
* exp_ch9.adb (Expand_N_Entry_Declaration): remove useless assignment
to local variable.
* sem_ch5.adb (Analyze_Assignment): set the last assignment component
in more cases, in order to detect more unreferenced values.
* sem_util.adb, sem_util.ads (Get_Enclosing_Object): return enclosing
object for expression, if any.
2011-08-04 Eric Botcazou <ebotcazou@adacore.com>
* exp_intr.adb (Expand_Binary_Operator_Call): Look at the RM size of
the operand types instead of the Esize.
2011-08-04 Steve Baird <baird@adacore.com>
* switch-b.adb (Scan_Binder_Switches): Add -P binder switch, used to
enable CodePeer_Mode.
* bindusg.adb (Display): Add help message describing -P binder switch.
* gnat_ugn.texi: Document -P binder switch.
* bindgen.adb (Gen_Main_Ada): If CodePeer_Mode is set, then call the
user-defined main program directly.
(Gen_Output_File_Ada): If CodePeer_Mode is set, generate a with of the
user-defined main program in the context clause of the package body.
From-SVN: r177355
Diffstat (limited to 'gcc/ada/exp_intr.adb')
| -rw-r--r-- | gcc/ada/exp_intr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_intr.adb b/gcc/ada/exp_intr.adb index 4edb9a6..39fe851 100644 --- a/gcc/ada/exp_intr.adb +++ b/gcc/ada/exp_intr.adb @@ -124,7 +124,7 @@ package body Exp_Intr is T3 : Entity_Id; Res : Node_Id; - Siz : constant Uint := UI_Max (Esize (T1), Esize (T2)); + Siz : constant Uint := UI_Max (RM_Size (T1), RM_Size (T2)); -- Maximum of operand sizes begin |