diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-27 09:20:28 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-27 09:20:28 +0000 |
| commit | 193a9b13ef90e8bc81e3c668271064abb673ed17 (patch) | |
| tree | b39000db064b1ac9d9b8b336ada8def253127669 | |
| parent | 988a187de60066724b9ba0fd53423e2c3526f358 (diff) | |
| download | gcc-193a9b13ef90e8bc81e3c668271064abb673ed17.tar.gz | |
* sem_ch3.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135991 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 9fb7e944b2b..de0806a1596 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -13054,7 +13054,7 @@ package body Sem_Ch3 is Prev_Par : Node_Id; procedure Tag_Mismatch; - -- Diagnose a tagged partial view whose full view is untagged; + -- Diagnose a tagged partial view whose full view is untagged. -- We post the message on the full view, with a reference to -- the previous partial view. The partial view can be private -- or incomplete, and these are handled in a different manner, @@ -13235,9 +13235,9 @@ package body Sem_Ch3 is end if; -- A prior untagged partial view can have an associated class-wide - -- type due to use of the class attribute, and in this case also the - -- full type is required to be tagged. This Ada95 usage is deprecated - -- in favor of incomplete tagged declarations but we check for it. + -- type due to use of the class attribute, and in this case the full + -- type must also be tagged. This Ada 95 usage is deprecated in favor + -- of incomplete tagged declarations, but we check for it. if Is_Type (Prev) and then (Is_Tagged_Type (Prev) |