From 694a4d2744f252b326121c37c2271133e0ec535f Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 21 Jul 2014 07:47:19 +0200 Subject: Add overflow literal. --- xrefs.adb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'xrefs.adb') diff --git a/xrefs.adb b/xrefs.adb index 4b864af56..1b96544ec 100644 --- a/xrefs.adb +++ b/xrefs.adb @@ -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 -- cgit v1.2.3