diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-17 06:56:06 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-17 06:56:06 +0000 |
| commit | 3db983c4f5372a236150f9c95bf356359ab2e1d2 (patch) | |
| tree | 6451be0d7983ed9f3a5aaa02d5f6ea3ee283cdd9 /gcc/ada/sprint.adb | |
| parent | 6ff6ab624bdd66d09bd25511e9d32e7384d1a85b (diff) | |
| download | gcc-3db983c4f5372a236150f9c95bf356359ab2e1d2.tar.gz | |
2014-07-17 Robert Dewar <dewar@adacore.com>
* sprint.adb (Write_Itype): Print proper header for string
literal subtype.
2014-07-17 Steve Baird <baird@adacore.com>
* sinfo.ads, sem_scil.ads: Improve comments, minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@212731 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sprint.adb')
| -rw-r--r-- | gcc/ada/sprint.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 9a55e8cc65a..f6980abeb86 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -4322,6 +4322,7 @@ package body Sprint is Len : constant Uint := String_Literal_Length (Typ); begin + Write_Header (False); Write_Str ("String ("); Write_Int (UI_To_Int (LB)); Write_Str (" .. "); |