From 8a66f99cd6b58313a4e9f08ce2c9dd1355d9aa7d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 31 Oct 2016 09:08:30 +0100
Subject: ghdlxml: display image of string_literal8

Fix #176
---
 src/ghdldrv/ghdlxml.adb | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'src/ghdldrv/ghdlxml.adb')

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 =>
-- 
cgit v1.2.3