aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/switch-b.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2011-08-04 12:09:06 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2011-08-04 12:09:06 +0200
commitc2db4b320dc594f7f5724c712fec7612e1744918 (patch)
treeee88f2d362365e5135d7544118b03fafb9e771d2 /gcc/ada/switch-b.adb
parentceb0dcaaad6b6dc2fbea74a76531ca7b05101d9c (diff)
downloadgcc-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.adb8
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' =>