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/scos.ads | |
| 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/scos.ads')
| -rw-r--r-- | gcc/ada/scos.ads | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/scos.ads b/gcc/ada/scos.ads index af4ebca..e0e31b6 100644 --- a/gcc/ada/scos.ads +++ b/gcc/ada/scos.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- 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- -- @@ -157,6 +157,7 @@ package SCOs is -- F FOR loop (from FOR through end of iteration scheme) -- I IF statement (from IF through end of condition) -- P[name:] PRAGMA with the indicated name + -- p[name:] disabled PRAGMA with the indicated name -- R extended RETURN statement -- W WHILE loop statement (from WHILE through end of condition) |