diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-26 10:39:16 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-26 10:39:16 +0000 |
| commit | 9db9a1a4d9a4d6b2ce66064f8f8ce1825e7c4a00 (patch) | |
| tree | 57cb5655903b6037e2a2cf93de028a1484b1dd70 /gcc/ada/sprint.adb | |
| parent | 23225afbab5d8d8abb987e4f45507c7ac70c762f (diff) | |
| download | gcc-9db9a1a4d9a4d6b2ce66064f8f8ce1825e7c4a00.tar.gz | |
2015-05-26 Bob Duff <duff@adacore.com>
* einfo.adb, einfo.ads, sprint.adb, lib-xref.ads: Minor cleanup: Remove
obsolete Entity_Kinds E_String_Type and E_String_Subtype. Update
redundant assertions.
2015-05-26 Gary Dismukes <dismukes@adacore.com>
* sem_util.adb, sem_util.ads, sem_ch13.adb: Minor typo fixes.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@223680 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sprint.adb')
| -rw-r--r-- | gcc/ada/sprint.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 9e3dca627b3..63a397da19a 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -4201,7 +4201,7 @@ package body Sprint is Write_Id (Directly_Designated_Type (Typ)); - -- Array types and string types + -- Array types when E_Array_Type => Write_Header; @@ -4230,10 +4230,10 @@ package body Sprint is Sprint_Node (X); Set_Sloc (X, Old_Sloc); - -- Array subtypes and string subtypes. + -- Array subtypes. -- Preserve Sloc of index subtypes, as above. - when E_Array_Subtype | E_String_Subtype => + when E_Array_Subtype => Write_Header (False); Write_Id (Etype (Typ)); Write_Str (" ("); |