vhdl-sem_scopes.adb: consider operators for interface chain

A type interface also implicitly declares equality and inequality
operators for the type.  Adjust Add_Declaration_From_Interface_Chain
so that these operators are visible

1 files changed, 2 insertions, 1 deletions

diff --git a/src/vhdl/vhdl-sem_scopes.adb b/src/vhdl/vhdl-sem_scopes.adb
index 0a4396636..099a9c62a 100644
--- a/src/vhdl/vhdl-sem_scopes.adb
+++ b/src/vhdl/vhdl-sem_scopes.adb
@@ -1243,7 +1243,8 @@ package body Vhdl.Sem_Scopes is
          --  anonymous and there is no need to iterate.
          exit when Id = Null_Identifier;
 
-         Add_Name (El, Id, False);
+         Add_Declaration (El, False);
+
          El := Get_Chain (El);
       end loop;
    end Add_Declarations_From_Interface_Chain;