diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2018-07-16 14:12:23 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-07-16 14:12:23 +0000 |
| commit | 4af4c79a53886d0807f187f23e066fe4f0265897 (patch) | |
| tree | c97a56f4603248763903ca27a2ffadab5cb6aae6 /gcc | |
| parent | 4aba11eeb36ea84d768eaaf7d0e2c49742f88cd8 (diff) | |
| download | gcc-4af4c79a53886d0807f187f23e066fe4f0265897.zip gcc-4af4c79a53886d0807f187f23e066fe4f0265897.tar.gz gcc-4af4c79a53886d0807f187f23e066fe4f0265897.tar.bz2 | |
[Ada] Only unnest subprograms if no previous errors were detected
2018-07-16 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* frontend.adb: Only unnest subprograms if no previous errors were
detected.
From-SVN: r262729
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/frontend.adb | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index cea3502..2f860ac 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2018-07-16 Arnaud Charlet <charlet@adacore.com> + + * frontend.adb: Only unnest subprograms if no previous errors were + detected. + 2018-07-16 Ed Schonberg <schonberg@adacore.com> * exp_ch7.adb (Check_Unnesting_Elaboration_Code): Handle loops that diff --git a/gcc/ada/frontend.adb b/gcc/ada/frontend.adb index 730062b..48a5d81 100644 --- a/gcc/ada/frontend.adb +++ b/gcc/ada/frontend.adb @@ -466,7 +466,9 @@ begin -- At this stage we can unnest subprogram bodies if required - Exp_Unst.Unnest_Subprograms (Cunit (Main_Unit)); + if Total_Errors_Detected = 0 then + Exp_Unst.Unnest_Subprograms (Cunit (Main_Unit)); + end if; -- List library units if requested |