From 777f73f67f0f2d18f73dc223a2d941ece31d0c9e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 23 Jul 2014 20:13:49 +0200
Subject: Add parenthesis_Expression, --reprint and --compare-tokens commands.

---
 sem_assocs.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sem_assocs.adb')

diff --git a/sem_assocs.adb b/sem_assocs.adb
index f393cfd0e..23252f5ce 100644
--- a/sem_assocs.adb
+++ b/sem_assocs.adb
@@ -921,7 +921,7 @@ package body Sem_Assocs is
             end if;
             Rec_El := Find_Name_In_List
               (Get_Elements_Declaration_List (Base_Type),
-               Get_Suffix_Identifier (Name));
+               Get_Identifier (Name));
             if Rec_El = Null_Iir then
                Name_Type := Null_Iir;
                return;
-- 
cgit v1.2.3