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 /evaluation.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 'evaluation.adb')
| -rw-r--r-- | evaluation.adb | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/evaluation.adb b/evaluation.adb index 1815c2b7c..d6ce74555 100644 --- a/evaluation.adb +++ b/evaluation.adb @@ -1717,15 +1717,11 @@ package body Evaluation is Val : Iir; begin case Get_Kind (Expr) is - when Iir_Kind_Integer_Literal => - return Expr; - when Iir_Kind_Enumeration_Literal => - return Expr; - when Iir_Kind_Floating_Point_Literal => - return Expr; - when Iir_Kind_String_Literal => - return Expr; - when Iir_Kind_Bit_String_Literal => + when Iir_Kind_Integer_Literal + | Iir_Kind_Enumeration_Literal + | Iir_Kind_Floating_Point_Literal + | Iir_Kind_String_Literal + | Iir_Kind_Bit_String_Literal => return Expr; when Iir_Kind_Physical_Int_Literal => if Get_Unit_Name (Expr) @@ -2049,6 +2045,7 @@ package body Evaluation is end; when Iir_Kind_Simple_Name + | Iir_Kind_Character_Literal | Iir_Kind_Selected_Name => declare Res : Iir; |