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/switch-b.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/switch-b.adb')
-rw-r--r-- | gcc/ada/switch-b.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/switch-b.adb b/gcc/ada/switch-b.adb index b41296b..0d44aa8 100644 --- a/gcc/ada/switch-b.adb +++ b/gcc/ada/switch-b.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2011, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -364,6 +364,12 @@ package body Switch.B is Ptr := Ptr + 1; Pessimistic_Elab_Order := True; + -- Processing for P switch + + when 'P' => + Ptr := Ptr + 1; + CodePeer_Mode := True; + -- Processing for q switch when 'q' => |