diff options
author | Tristan Gingold <tgingold@free.fr> | 2014-07-19 07:32:39 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2014-07-19 07:32:39 +0200 |
commit | 4168dec01d69b644c59858be3af8d56b055fbbc2 (patch) | |
tree | b620bd83cc41629d391ba54d98013a7b1f5b513c /sem_names.adb | |
parent | 415befa3bfe945bc069fd1ce73d8efd91e3b459f (diff) | |
download | ghdl-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.adb | 4 |
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)); |