diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-23 13:04:33 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-23 13:04:33 +0000 |
| commit | b0e684c847dae0269be7dcc39181e1adaeed1e6a (patch) | |
| tree | 806fdc93e4100c62c6e0f31f598bed54df82cf85 /gcc/ada/sem.adb | |
| parent | 2f4228c7498751a1c7fc06cfcffd76d8122b82ce (diff) | |
| download | gcc-b0e684c847dae0269be7dcc39181e1adaeed1e6a.tar.gz | |
2009-07-23 Ed Schonberg <schonberg@adacore.com>
* sem.adb (Do_Unit_And_Dependents): Now that specs and bodies are not
done at the same time, guard against listing a body more than once.
2009-07-23 Robert Dewar <dewar@adacore.com>
* exp_ch6.adb: Minor reformatting
2009-07-23 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Analyze_Object_Declaration): A scalar constant with a
static expression is known valid.
* sem_eval.adb (Compile_Time_Compare): Handle properly non-static
operands of a subtype with a single value.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150009 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem.adb')
| -rw-r--r-- | gcc/ada/sem.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb index 463d212ea48..94b2acf3a48 100644 --- a/gcc/ada/sem.adb +++ b/gcc/ada/sem.adb @@ -1770,6 +1770,14 @@ package body Sem is begin if Present (Body_Unit) + + -- Since specs and bodies are not done at the same time, + -- guard against listing a body more than once. + + and then not Seen (Get_Cunit_Unit_Number (Body_Unit)) + + -- Would be good to comment each of these tests ??? + and then Body_Unit /= Cunit (Main_Unit) and then Unit_Num /= Get_Source_Unit (System_Aux_Id) and then not Circular_Dependence (Body_Unit) |