From 5e48ffd4e75614e9da14675f4c464276f1005d51 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 29 Oct 2017 09:48:19 +0100
Subject: Add a comment.

---
 src/vhdl/iirs_utils.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

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;
-- 
cgit v1.2.3