aboutsummaryrefslogtreecommitdiffstats
path: root/sem_names.adb
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2014-07-19 07:32:39 +0200
committerTristan Gingold <tgingold@free.fr>2014-07-19 07:32:39 +0200
commit4168dec01d69b644c59858be3af8d56b055fbbc2 (patch)
treeb620bd83cc41629d391ba54d98013a7b1f5b513c /sem_names.adb
parent415befa3bfe945bc069fd1ce73d8efd91e3b459f (diff)
downloadghdl-4168dec01d69b644c59858be3af8d56b055fbbc2.tar.gz
ghdl-4168dec01d69b644c59858be3af8d56b055fbbc2.tar.bz2
ghdl-4168dec01d69b644c59858be3af8d56b055fbbc2.zip
Handle character literals like simple names.
Diffstat (limited to 'sem_names.adb')
-rw-r--r--sem_names.adb4
1 files changed, 3 insertions, 1 deletions
diff --git a/sem_names.adb b/sem_names.adb
index ac62bef14..960868f4f 100644
--- a/sem_names.adb
+++ b/sem_names.adb
@@ -1328,7 +1328,7 @@ package body Sem_Names is
-- The evaluation of a simple name has no other effect than to determine
-- the named entity denoted by the name.
--
- -- NAME may be a string literal too.
+ -- NAME may be a simple name, a strig literal or a character literal.
-- GHDL: set interpretation of NAME (possibly an overload list) or
-- error_mark for unknown names.
-- If SOFT is TRUE, then no error message is reported in case of failure.
@@ -3067,6 +3067,7 @@ package body Sem_Names is
case Get_Kind (Name) is
when Iir_Kind_Simple_Name
+ | Iir_Kind_Character_Literal
| Iir_Kind_Operator_Symbol =>
-- String_Literal may be a symbol_operator.
Sem_Simple_Name (Name, Keep_Alias, False);
@@ -3367,6 +3368,7 @@ package body Sem_Names is
Xref_Name (Name);
case Get_Kind (Name) is
when Iir_Kind_Simple_Name
+ | Iir_Kind_Character_Literal
| Iir_Kind_Selected_Name =>
--Set_Base_Name (Name, Get_Base_Name (Expr));
Set_Type (Name, Get_Type (Expr));