From 17082aaf70426f2204b4259e45b1ca6e315bd439 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Mon, 29 Dec 2014 08:20:50 +0100
Subject: Rework string literals: store literals position.

---
 src/vhdl/errorout.adb | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

(limited to 'src/vhdl/errorout.adb')

diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb
index b78bfc2..940b8fc 100644
--- a/src/vhdl/errorout.adb
+++ b/src/vhdl/errorout.adb
@@ -375,12 +375,8 @@ package body Errorout is
 
    begin
       case Get_Kind (Node) is
-         when Iir_Kind_String_Literal =>
-            return "string literal """
-              & Image_String_Lit (Node) & """";
-         when Iir_Kind_Bit_String_Literal =>
-            return "bit string literal """
-              & Image_String_Lit (Node) & """";
+         when Iir_Kind_String_Literal8 =>
+            return "string literal";
          when Iir_Kind_Character_Literal =>
             return "character literal " & Image_Identifier (Node);
          when Iir_Kind_Integer_Literal =>
-- 
cgit