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_intr.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_intr.adb')
| -rw-r--r-- | gcc/ada/sem_intr.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_intr.adb b/gcc/ada/sem_intr.adb index add170f..e5c779f 100644 --- a/gcc/ada/sem_intr.adb +++ b/gcc/ada/sem_intr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -54,7 +54,7 @@ package body Sem_Intr is procedure Check_Intrinsic_Operator (E : Entity_Id; N : Node_Id); -- Check that operator is one of the binary arithmetic operators, and - -- that the types involved both have underlying integer types.. + -- that the types involved both have underlying integer types. procedure Check_Shift (E : Entity_Id; N : Node_Id); -- Check intrinsic shift subprogram, the two arguments are the same |