diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-12-05 21:09:14 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-12-06 20:05:50 +0100 |
| commit | 927f45f785a7dc06b621850d7a61f471accc2405 (patch) | |
| tree | 9a962553c0b6baff7cdf6ed9181eec901349c1bf /src | |
| parent | 0710ab894a5234cc68a6f43dfb9aac95c9c96010 (diff) | |
| download | ghdl-927f45f785a7dc06b621850d7a61f471accc2405.tar.gz ghdl-927f45f785a7dc06b621850d7a61f471accc2405.tar.bz2 ghdl-927f45f785a7dc06b621850d7a61f471accc2405.zip | |
are_trees_equal: handle function_call
Fixes #212
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/sem.adb | 6 |
1 files changed, 6 insertions, 0 deletions
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 |