From a52af2f98e34648a2a9b056b11da518a60a6c6cd Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 26 Dec 2019 18:05:51 +0100
Subject: vhdl: improve support of AMS-vhdl (array and record natures, source
 quantities)

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

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

diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb
index 5cbf85e62..ac58068af 100644
--- a/src/vhdl/translate/trans-chap2.adb
+++ b/src/vhdl/translate/trans-chap2.adb
@@ -114,6 +114,8 @@ package body Trans.Chap2 is
                Mech := Pass_By_Address;
             end if;
             Info.Interface_Mechanism (Mode_Value) := Mech;
+         when Iir_Kind_Interface_Quantity_Declaration =>
+            raise Internal_Error;
       end case;
    end Translate_Interface_Mechanism;
 
-- 
cgit v1.2.3