diff options
author | Tristan Gingold <tgingold@free.fr> | 2014-07-21 07:47:19 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2014-07-21 07:47:19 +0200 |
commit | 694a4d2744f252b326121c37c2271133e0ec535f (patch) | |
tree | 3ece5db5d351cc3cb400691727a3d54673e540e1 /xrefs.adb | |
parent | 348dcc000d792200eb9e9853a1684ab6b3b25764 (diff) | |
download | ghdl-694a4d2744f252b326121c37c2271133e0ec535f.tar.gz ghdl-694a4d2744f252b326121c37c2271133e0ec535f.tar.bz2 ghdl-694a4d2744f252b326121c37c2271133e0ec535f.zip |
Add overflow literal.
Diffstat (limited to 'xrefs.adb')
-rw-r--r-- | xrefs.adb | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -108,7 +108,8 @@ package body Xrefs is case Get_Kind (Name) is when Iir_Kind_Simple_Name | Iir_Kind_Selected_Name - | Iir_Kind_Operator_Symbol => + | Iir_Kind_Operator_Symbol + | Iir_Kind_Character_Literal => Res := Get_Named_Entity (Name); if Res = Std_Package.Error_Mark then return; @@ -126,7 +127,8 @@ package body Xrefs is end case; case Get_Kind (Name) is when Iir_Kind_Simple_Name - | Iir_Kind_Operator_Symbol => + | Iir_Kind_Operator_Symbol + | Iir_Kind_Character_Literal => null; when Iir_Kind_Selected_Name | Iir_Kind_Parenthesis_Name |