diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-15 12:18:14 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-15 12:18:14 +0000 |
commit | 87d3518d7b71f14b3b8d24474305f89578d950fc (patch) | |
tree | 611708cb44aa4c1ecc5d5494b6c656f0040e4c7b /gcc/ada/targparm.adb | |
parent | b2a537cf766cddb102d1210b8f58c40513657c23 (diff) | |
download | ppe42-gcc-87d3518d7b71f14b3b8d24474305f89578d950fc.tar.gz ppe42-gcc-87d3518d7b71f14b3b8d24474305f89578d950fc.zip |
2009-04-15 Robert Dewar <dewar@adacore.com>
* sem_eval.adb (Get_Static_Length): Go to origin node for array bounds
in case they were rewritten by expander (Force_Evaluation).
* targparm.adb (Get_Target_Parameters): Correct check for
Suppress_Exception_Locations.
2009-04-15 Ed Schonberg <schonberg@adacore.com>
* exp_ch6.adb (Expand_Inlined_Call): If an in-parameter in a call to be
inlined is of an array type that is not bit-packed, use a renaming
declaration to capture its value, rather than a constant declaration.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146104 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/targparm.adb')
-rw-r--r-- | gcc/ada/targparm.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/targparm.adb b/gcc/ada/targparm.adb index 52bbbcb953c..da42ba8b7b5 100644 --- a/gcc/ada/targparm.adb +++ b/gcc/ada/targparm.adb @@ -408,10 +408,10 @@ package body Targparm is -- Suppress_Exception_Locations - elsif System_Text (P .. P + 34) = - "pragma Suppress_Exception_Locations;" + elsif System_Text (P .. P + 35) = + "pragma Suppress_Exception_Locations;" then - P := P + 35; + P := P + 36; Opt.Exception_Locations_Suppressed := True; goto Line_Loop_Continue; |