diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 10:09:06 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 10:09:06 +0000 |
| commit | b2c42753c93103c8319584936368ebc484ba1f58 (patch) | |
| tree | ee88f2d362365e5135d7544118b03fafb9e771d2 /gcc/ada/checks.adb | |
| parent | 0c8f6a89279e07e61771d5eb2170069e81e9c2e8 (diff) | |
| download | gcc-b2c42753c93103c8319584936368ebc484ba1f58.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177355 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/checks.adb')
| -rw-r--r-- | gcc/ada/checks.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index 97bbf28546a..a798e3f22fa 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -1690,7 +1690,7 @@ package body Checks is if Truncate and then Ilast < 0 then Hi := Succ (Expr_Type, UR_From_Uint (Ilast)); - Lo_OK := False; + Hi_OK := False; elsif Truncate then Hi := Pred (Expr_Type, UR_From_Uint (Ilast + 1)); |