From 927f45f785a7dc06b621850d7a61f471accc2405 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 5 Dec 2016 21:09:14 +0100 Subject: are_trees_equal: handle function_call Fixes #212 --- src/vhdl/sem.adb | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src') diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb index b89e1f005..39916bb76 100644 --- a/src/vhdl/sem.adb +++ b/src/vhdl/sem.adb @@ -1479,6 +1479,12 @@ package body Sem is when Iir_Kinds_Monadic_Operator => return Are_Trees_Equal (Get_Operand (Left), Get_Operand (Right)); + when Iir_Kind_Function_Call => + return Are_Trees_Equal (Get_Prefix (Left), Get_Prefix (Right)) + and then + Are_Trees_Chain_Equal (Get_Parameter_Association_Chain (Left), + Get_Parameter_Association_Chain (Right)); + when Iir_Kind_Access_Type_Definition | Iir_Kind_Record_Type_Definition | Iir_Kind_Array_Type_Definition -- cgit v1.2.3