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