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/translate/trans-chap4.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl/translate/trans-chap4.adb')

diff --git a/src/vhdl/translate/trans-chap4.adb b/src/vhdl/translate/trans-chap4.adb
index b6f1c66..7c71cc7 100644
--- a/src/vhdl/translate/trans-chap4.adb
+++ b/src/vhdl/translate/trans-chap4.adb
@@ -509,7 +509,7 @@ package body Trans.Chap4 is
                Name_Node := Stabilize (Name);
                S := Stabilize (E2M (Value_Node, Type_Info, Mode_Value));
 
-               if Get_Kind (Value) = Iir_Kind_String_Literal
+               if Get_Kind (Value) = Iir_Kind_String_Literal8
                  and then Get_Kind (Obj) = Iir_Kind_Constant_Declaration
                then
                   --  No need to allocate space for the object.
-- 
cgit