diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-04 13:38:32 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-04 13:38:32 +0000 |
| commit | 9d19b9b6ff749af80ed78e2d559ac1afb331ce26 (patch) | |
| tree | 23c9ed87b7402730b99a9046180d3c16a302e450 /gcc/ada/sinput-l.adb | |
| parent | 61e77e4568a4510e54c4d17733a8ed29cd1ae77b (diff) | |
| download | gcc-9d19b9b6ff749af80ed78e2d559ac1afb331ce26.tar.gz | |
2010-10-04 Robert Dewar <dewar@adacore.com>
* sem_res.adb, sinput-l.adb: Minor reformatting.
2010-10-04 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch5.adb (Expand_N_Assignment_Statement): Do not generate a tag
check when the target object is an interface since the expression of
the right hand side must only cover the interface.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164935 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sinput-l.adb')
| -rw-r--r-- | gcc/ada/sinput-l.adb | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/gcc/ada/sinput-l.adb b/gcc/ada/sinput-l.adb index 8d952b2cd04..52f3a713bb1 100644 --- a/gcc/ada/sinput-l.adb +++ b/gcc/ada/sinput-l.adb @@ -556,13 +556,14 @@ package body Sinput.L is -- the source has been modified by the preprocessing. Only -- do that for the main unit (spec, body and subunits). - if Generate_Processed_File and then - Modified and then + if Generate_Processed_File + and then Modified + and then ((Compiler_State = Parsing - and then Parsing_Main_Extended_Source) - or else - (Compiler_State = Analyzing - and then Analysing_Subunit_Of_Main)) + and then Parsing_Main_Extended_Source) + or else + (Compiler_State = Analyzing + and then Analysing_Subunit_Of_Main)) then declare FD : File_Descriptor; |