diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-11-06 12:28:27 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-11-06 12:28:27 +0100 |
| commit | ee2ba85639333f03774668c5a4b25d7ae08b1036 (patch) | |
| tree | 95877e8f8a857b54830ea0e9deb7b9bda9226731 /gcc/ada/sem_intr.adb | |
| parent | d8192289b58f8a5fe8f68a50dd88db45c81f9afc (diff) | |
| download | gcc-ee2ba85639333f03774668c5a4b25d7ae08b1036.zip gcc-ee2ba85639333f03774668c5a4b25d7ae08b1036.tar.gz gcc-ee2ba85639333f03774668c5a4b25d7ae08b1036.tar.bz2 | |
[multiple changes]
2012-11-06 Tristan Gingold <gingold@adacore.com>
* sem_ch9.adb (Analyze_Protected_Type_Declaration): Fix thinko
in previous commit.
2012-11-06 Jose Ruiz <ruiz@adacore.com>
* ali.adb (Scan_ALI): Fix parsing mechanism for -fstack-check.
2012-11-06 Thomas Quinot <quinot@adacore.com>
* atree.adb, atree.ads, einfo.adb, errout.adb, errout.ads, erroutc.adb,
erroutc.ads, errutil.adb, errutil.ads, err_vars.ads, expander.adb,
exp_ch13.adb, exp_ch2.adb, exp_ch6.adb, exp_dist.adb, fe.h,
fmap.adb, fmap.ads, gprep.adb, makeutl.adb, osint.adb, osint.ads,
par_sco.adb, prepcomp.adb, prj-part.adb, prj-proc.adb, scng.adb,
sdefault.ads, sem_ch10.adb, sem_ch13.adb, sem_ch2.adb, sem_ch3.adb,
sem_ch4.adb, sem_ch5.adb, sem_dim.adb, sem_elab.adb, sem_eval.adb,
sem_intr.adb, sem_prag.adb, sem_type.adb, sem_warn.adb, stylesw.adb,
stylesw.ads, targparm.adb, targparm.ads (Cascaded_Error): Rename to
more descriptive name 'Check_Error_Detected'. Add calls to
Check_Error_Detected at places where semantic analysis is abandoned
assuming a previously detected error.
From-SVN: r193235
Diffstat (limited to 'gcc/ada/sem_intr.adb')
| -rw-r--r-- | gcc/ada/sem_intr.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/sem_intr.adb b/gcc/ada/sem_intr.adb index f650be9..93eb492 100644 --- a/gcc/ada/sem_intr.adb +++ b/gcc/ada/sem_intr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -271,7 +271,9 @@ package body Sem_Intr is -- Return if previous error in declaration, otherwise get T2 type if No (Next_Formal (First_Formal (E))) then + Check_Error_Detected; return; + else T2 := Etype (Next_Formal (First_Formal (E))); end if; |