diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-10-29 09:48:19 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-10-29 09:48:19 +0100 |
commit | 5e48ffd4e75614e9da14675f4c464276f1005d51 (patch) | |
tree | 5a68e17af38e6ab301baa3593b3aeac219b40dc4 /src/vhdl | |
parent | 4e744f3129f156a4ebcbab3bb14d5928c2d3bb65 (diff) | |
download | ghdl-5e48ffd4e75614e9da14675f4c464276f1005d51.tar.gz ghdl-5e48ffd4e75614e9da14675f4c464276f1005d51.tar.bz2 ghdl-5e48ffd4e75614e9da14675f4c464276f1005d51.zip |
Add a comment.
Diffstat (limited to 'src/vhdl')
-rw-r--r-- | src/vhdl/iirs_utils.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/iirs_utils.adb b/src/vhdl/iirs_utils.adb index 9daf36c9a..a61c68eb2 100644 --- a/src/vhdl/iirs_utils.adb +++ b/src/vhdl/iirs_utils.adb @@ -461,6 +461,7 @@ package body Iirs_Utils is case Get_Kind (El) is when Iir_Kind_Simple_Name | Iir_Kind_Operator_Symbol => + -- Operator is for subprogram interfaces. return Get_Named_Entity (El); when Iir_Kinds_Interface_Declaration => return El; |