diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 08:40:53 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 08:40:53 +0000 |
| commit | 0da7785ce86178158ba6dbdc4ec3ad4f44c8b963 (patch) | |
| tree | e9a56ce2a97ee5439638449e07f387032b42b60d /gcc/ada/put_scos.adb | |
| parent | 141d591ade58687902f12b6ca31a4ac1f03af2b2 (diff) | |
| download | gcc-0da7785ce86178158ba6dbdc4ec3ad4f44c8b963.tar.gz | |
2011-08-29 Hristian Kirtchev <kirtchev@adacore.com>
* exp_util.adb (Process_Statements_For_Controlled_Objects): Whenever a
statement list is wrapped in a block, the block is explicitly analyzed
in order to properly redecorate the entities and create a servicing
finalizer.
2011-08-29 Tristan Gingold <gingold@adacore.com>
* sinfo.ads, sinfo.adb (Zero_Cost_Handling): Remove.
(Set_Zero_Cost_Handling): Remove.
2011-08-29 Thomas Quinot <quinot@adacore.com>
* par_sco.adb, scos.ads, put_scos.adb, get_scos.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178162 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/put_scos.adb')
| -rw-r--r-- | gcc/ada/put_scos.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/put_scos.adb b/gcc/ada/put_scos.adb index 65dfbc80046..a1b3f231564 100644 --- a/gcc/ada/put_scos.adb +++ b/gcc/ada/put_scos.adb @@ -156,7 +156,7 @@ begin -- Decision - when 'I' | 'E' | 'G' | 'P' | 'W' | 'X' => + when 'E' | 'G' | 'I' | 'P' | 'W' | 'X' => Start := Start + 1; -- For disabled pragma, or nested decision therein, skip |