diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-01-23 10:39:27 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-01-23 10:39:27 +0100 |
| commit | 88a27b18dddb3a7fbf98f3f5ee0f3ff5a745d911 (patch) | |
| tree | 1eeb3948fb02ea5d492dcba3de5efd26fcd5412b /gcc/ada/get_scos.adb | |
| parent | 3c24c853da7ea2106fe07213fdf1efd43b86bddf (diff) | |
| download | gcc-88a27b18dddb3a7fbf98f3f5ee0f3ff5a745d911.zip gcc-88a27b18dddb3a7fbf98f3f5ee0f3ff5a745d911.tar.gz gcc-88a27b18dddb3a7fbf98f3f5ee0f3ff5a745d911.tar.bz2 | |
[multiple changes]
2012-01-23 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch12.adb (Analyze_Associations): Alphabetize local variables and
constants. Rename Actual_Types to Actuals_To_Freeze. Rename Next_Formal
to Saved_Formal.
Freeze all eligible subprograms which appear as actuals in
the instantiation.
(Has_Fully_Defined_Profile): New routine.
(Renames_Standard_Subprogram): New routine.
(Earlier): Add local variable N. Comment update. Do not use source
locations when trying to determine whether one node precedes another.
2012-01-23 Gary Dismukes <dismukes@adacore.com>
* exp_ch4.adb (Expand_Concatenate): In the case
where the result of a concatentation can be null, set the to
result have both the low and high bounds of the right operand (not
just the high bound, as was the case prior to this fix). Also,
fix the saved high bound setting (Last_Opnd_High_Bound) in the
empty string literal case (should have been low bound minus one,
rather than plus one).
2012-01-23 Thomas Quinot <quinot@adacore.com>
* scos.ads, put_scos.adb, get_scos.adb (Get_SCOs, Put_SCOs): Do not
omit statement SCOs for disabled pragmas.
From-SVN: r183419
Diffstat (limited to 'gcc/ada/get_scos.adb')
| -rw-r--r-- | gcc/ada/get_scos.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/get_scos.adb b/gcc/ada/get_scos.adb index e096c23..ce662ce 100644 --- a/gcc/ada/get_scos.adb +++ b/gcc/ada/get_scos.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2009-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 2009-2012, 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- -- @@ -301,7 +301,7 @@ begin when others => Skipc; - if Typ = 'P' then + if Typ = 'P' or else Typ = 'p' then if Nextc not in '1' .. '9' then N := 1; loop |