diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-23 09:39:27 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-23 09:39:27 +0000 |
| commit | 362e5ece36cab6ff1252ef2a6d19d790f12b1a6c (patch) | |
| tree | 1eeb3948fb02ea5d492dcba3de5efd26fcd5412b /gcc/ada/put_scos.adb | |
| parent | dee4c239eae6d805bcdadd421af4593452466869 (diff) | |
| download | gcc-362e5ece36cab6ff1252ef2a6d19d790f12b1a6c.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@183419 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/put_scos.adb')
| -rw-r--r-- | gcc/ada/put_scos.adb | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/gcc/ada/put_scos.adb b/gcc/ada/put_scos.adb index 84d4ef60e79..39fd04fcc7a 100644 --- a/gcc/ada/put_scos.adb +++ b/gcc/ada/put_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- -- @@ -139,12 +139,6 @@ begin Ctr := 0; Continuation := False; loop - if SCO_Pragma_Disabled - (SCO_Table.Table (Start).Pragma_Sloc) - then - goto Next_Statement; - end if; - if Ctr = 0 then Write_SCO_Initiate (U); if not Continuation then @@ -169,7 +163,7 @@ begin Write_Info_Char (Sent.C2); if Sent.C1 = 'S' - and then Sent.C2 = 'P' + and then (Sent.C2 = 'P' or else Sent.C2 = 'p') and then Sent.Pragma_Name /= Unknown_Pragma then -- Strip leading "PRAGMA_" @@ -205,7 +199,6 @@ begin Ctr := 0; end if; - <<Next_Statement>> exit when SCO_Table.Table (Start).Last; Start := Start + 1; end loop; |