diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-04 12:51:10 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-04 12:51:10 +0000 |
| commit | 3d722acc40bdf3d34232df9710f25e078ba0b946 (patch) | |
| tree | dd157aa5b06c98019b1044357df7727b64619412 /gcc/ada/sem_eval.adb | |
| parent | e07aec857a7232378ebf625a72bc4f8cd5704c88 (diff) | |
| download | gcc-3d722acc40bdf3d34232df9710f25e078ba0b946.tar.gz | |
2008-08-04 Javier Miranda <miranda@adacore.com>
* sem_eval.adb (Subtypes_Statically_Match): Remove superfluous patch
added in previous patch to handle access to subprograms.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138616 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_eval.adb')
| -rw-r--r-- | gcc/ada/sem_eval.adb | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb index ea4f769ea23..d8067915838 100644 --- a/gcc/ada/sem_eval.adb +++ b/gcc/ada/sem_eval.adb @@ -4388,12 +4388,7 @@ package body Sem_Eval is return Subtype_Conformant (Designated_Type (T1), - Designated_Type (T2)) - - -- Convention check required to cover protected subprograms - - and then Convention (Designated_Type (T1)) = - Convention (Designated_Type (T2)); + Designated_Type (T2)); else return Subtypes_Statically_Match |