diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-18 11:05:37 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-18 11:05:37 +0200 |
| commit | 22cb89b5d64658ab1f9835ff42981e895bbe2dab (patch) | |
| tree | fdb6461959848edd0ac0162f136554c4a7f02f28 /gcc/ada/sem_elim.adb | |
| parent | e9672ebe5d3c2695c61ca92c29af4a1df222db13 (diff) | |
| download | gcc-22cb89b5d64658ab1f9835ff42981e895bbe2dab.zip gcc-22cb89b5d64658ab1f9835ff42981e895bbe2dab.tar.gz gcc-22cb89b5d64658ab1f9835ff42981e895bbe2dab.tar.bz2 | |
[multiple changes]
2010-06-18 Ed Schonberg <schonberg@adacore.com>
* exp_util.adb (Make_Subtype_From_Expr): If the unconstrained type is
the class-wide type for a private extension, and the completion is a
subtype, set the type of the class-wide type to the base type of the
full view.
2010-06-18 Robert Dewar <dewar@adacore.com>
* g-socket.ads, sem_aggr.adb, einfo.ads, sem_elim.adb,
sem_intr.adb, sem_eval.adb: Minor reformatting
2010-06-18 Ed Schonberg <schonberg@adacore.com>
* sem_type.adb (Is_Ancestor): If either type is private, examine full
view.
From-SVN: r160966
Diffstat (limited to 'gcc/ada/sem_elim.adb')
| -rw-r--r-- | gcc/ada/sem_elim.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/sem_elim.adb b/gcc/ada/sem_elim.adb index ecc4ed6..b7d9348 100644 --- a/gcc/ada/sem_elim.adb +++ b/gcc/ada/sem_elim.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1997-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2010, 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- -- @@ -295,11 +295,11 @@ package body Sem_Elim is Up := Elmt.Unit_Name'Last; - -- If we are within a subunit, the name in the pragma has been - -- parsed as a child unit, but the current compilation unit is - -- in fact the parent in which the subunit is embedded. We must - -- skip the first name which is that of the subunit to match - -- the pragma specification. + -- If we are within a subunit, the name in the pragma has been + -- parsed as a child unit, but the current compilation unit is in + -- fact the parent in which the subunit is embedded. We must skip + -- the first name which is that of the subunit to match the pragma + -- specification. declare Par : Node_Id; |