diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-19 14:24:07 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-19 14:24:07 +0000 |
| commit | 9fb1fcd1d02216ed77a98a761f7b1a1eb8e3e2f0 (patch) | |
| tree | a57faeaf8a7a0c6e7070868d587ca81339b04831 /gcc/ada/sem_ch10.adb | |
| parent | 12057c3c70805391a4dcf9c3167c947b3db66d6c (diff) | |
| download | gcc-9fb1fcd1d02216ed77a98a761f7b1a1eb8e3e2f0.tar.gz | |
2004-05-19 Joel Brobecker <brobecker@gnat.com>
* exp_dbug.ads: Correct comments concerning handling of overloading,
since we no longer use $ anymore.
2004-05-19 Sergey Rybin <rybin@act-europe.fr>
* sem_ch10.adb (Optional_Subunit): When loading a subunit, do not
ignore errors if ASIS_Mode is set. This prevents creating ASIS trees
with illegal subunits.
2004-05-19 Ed Schonberg <schonberg@gnat.com>
* sem_ch6.adb (Check_Following_Pragma): When compiling a subprogram
body with front-end inlining enabled, check whether an inline pragma
appears immediately after the body and applies to it.
* sem_prag.adb (Cannot_Inline): Emit warning if front-end inlining is
enabled and the pragma appears after the body of the subprogram.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@82026 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_ch10.adb')
| -rw-r--r-- | gcc/ada/sem_ch10.adb | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index ac065d0edf5..9eaee3e057f 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -948,14 +948,20 @@ package body Sem_Ch10 is -- Errout to ignore all errors. Note that Fatal_Error will still -- be set, so we will be able to check for this case below. - Ignore_Errors_Enable := Ignore_Errors_Enable + 1; + if not ASIS_Mode then + Ignore_Errors_Enable := Ignore_Errors_Enable + 1; + end if; + Unum := Load_Unit (Load_Name => Subunit_Name, Required => False, Subunit => True, Error_Node => N); - Ignore_Errors_Enable := Ignore_Errors_Enable - 1; + + if not ASIS_Mode then + Ignore_Errors_Enable := Ignore_Errors_Enable - 1; + end if; -- All done if we successfully loaded the subunit |