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 /iirs.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 'iirs.adb')
| -rw-r--r-- | iirs.adb | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -2548,7 +2548,8 @@ package body Iirs is procedure Check_Kind_For_Base_Name (Target : Iir) is begin case Get_Kind (Target) is - when Iir_Kind_Attribute_Value + when Iir_Kind_Character_Literal + | Iir_Kind_Attribute_Value | Iir_Kind_Operator_Symbol | Iir_Kind_Free_Quantity_Declaration | Iir_Kind_Across_Quantity_Declaration @@ -5794,7 +5795,8 @@ package body Iirs is procedure Check_Kind_For_Named_Entity (Target : Iir) is begin case Get_Kind (Target) is - when Iir_Kind_Operator_Symbol + when Iir_Kind_Character_Literal + | Iir_Kind_Operator_Symbol | Iir_Kind_Simple_Name | Iir_Kind_Selected_Name | Iir_Kind_Selected_By_All_Name @@ -5822,6 +5824,7 @@ package body Iirs is begin case Get_Kind (Target) is when Iir_Kind_Error + | Iir_Kind_Character_Literal | Iir_Kind_Integer_Literal | Iir_Kind_Floating_Point_Literal | Iir_Kind_Null_Literal |