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.

---
 canon.adb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'canon.adb')

diff --git a/canon.adb b/canon.adb
index 9309a703c..b33883457 100644
--- a/canon.adb
+++ b/canon.adb
@@ -2526,8 +2526,7 @@ package body Canon is
                         Set_Parent (Res, Conf);
                         Blk_Spec := Create_Iir (Iir_Kind_Selected_Name);
                         Location_Copy (Blk_Spec, Res);
-                        Set_Suffix_Identifier
-                          (Blk_Spec, Std_Names.Name_Others);
+                        Set_Identifier (Blk_Spec, Std_Names.Name_Others);
                         Set_Prefix (Blk_Spec, El);
                         Set_Block_Specification (Res, Blk_Spec);
                         Append (Last_Item, Conf, Res);
-- 
cgit v1.2.3