From a0db26a3e68b5ec12df37f99529a4c9ff6ddfdaf Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 27 Apr 2020 18:00:18 +0200
Subject: vhdl: minimal support of interface package in entities.  For #1262

---
 src/vhdl/translate/trans-chap1.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/vhdl/translate/trans-chap1.adb')

diff --git a/src/vhdl/translate/trans-chap1.adb b/src/vhdl/translate/trans-chap1.adb
index 1c1e18a92..05d76d6d2 100644
--- a/src/vhdl/translate/trans-chap1.adb
+++ b/src/vhdl/translate/trans-chap1.adb
@@ -163,7 +163,8 @@ package body Trans.Chap1 is
       end if;
 
       if Global_Storage = O_Storage_External then
-         --  Entity declaration subprograms.
+         --  Entity declaration subprograms as they can be called by the
+         --  architectures.
          Chap4.Translate_Declaration_Chain_Subprograms
            (Entity, Subprg_Translate_Spec_And_Body);
       else
-- 
cgit v1.2.3