diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-10-31 09:08:30 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-11-01 13:11:43 +0100 |
| commit | 8a66f99cd6b58313a4e9f08ce2c9dd1355d9aa7d (patch) | |
| tree | 977211e7b53dae1713ec92e5bd18d4c62772c6ea /src/ghdldrv/ghdlxml.adb | |
| parent | 7de48a7766fda33869e582499bc12192fe5c23ef (diff) | |
| download | ghdl-8a66f99cd6b58313a4e9f08ce2c9dd1355d9aa7d.tar.gz ghdl-8a66f99cd6b58313a4e9f08ce2c9dd1355d9aa7d.tar.bz2 ghdl-8a66f99cd6b58313a4e9f08ce2c9dd1355d9aa7d.zip | |
ghdlxml: display image of string_literal8
Fix #176
Diffstat (limited to 'src/ghdldrv/ghdlxml.adb')
| -rw-r--r-- | src/ghdldrv/ghdlxml.adb | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/ghdldrv/ghdlxml.adb b/src/ghdldrv/ghdlxml.adb index 6641202a0..eb6eceec9 100644 --- a/src/ghdldrv/ghdlxml.adb +++ b/src/ghdldrv/ghdlxml.adb @@ -20,7 +20,6 @@ with GNAT.OS_Lib; use GNAT.OS_Lib; with Types; use Types; with Name_Table; use Name_Table; with Nodes_Meta; use Nodes_Meta; -with Str_Table; with Files_Map; with Disp_Tree; use Disp_Tree; with Ghdlprint; use Ghdlprint; @@ -429,9 +428,7 @@ package body Ghdlxml is begin Put_Stag (Get_Field_Image (F)); Put_Attribute ("length", Strip (Int32'Image (Len))); - Put_Attribute ("content", - To_XML (Str_Table.String_String8 - (Get_String8_Id (N), Len))); + Put_Attribute ("content", To_XML (Image_String8 (N))); Put_Empty_Stag_End; end; when others => |