From e58c9807fa183b6d1324f9b36ffe1a86bf1f42cb Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 17 Nov 2021 18:35:39 +0100
Subject: vhdl-utils.adb: minor refactoring

---
 src/vhdl/vhdl-utils.adb | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/src/vhdl/vhdl-utils.adb b/src/vhdl/vhdl-utils.adb
index 2cbc07890..fc97ba185 100644
--- a/src/vhdl/vhdl-utils.adb
+++ b/src/vhdl/vhdl-utils.adb
@@ -1515,13 +1515,9 @@ package body Vhdl.Utils is
          return Null_Iir;
       end if;
 
-      case Get_Kind (Res) is
-         when Iir_Kind_Entity_Declaration
-            | Iir_Kind_Foreign_Module =>
-            return Res;
-         when others =>
-            raise Internal_Error;
-      end case;
+      pragma Assert (Kind_In (Res, Iir_Kind_Entity_Declaration,
+                              Iir_Kind_Foreign_Module));
+      return Res;
    end Get_Entity;
 
    function Get_Configuration (Aspect : Iir) return Iir
-- 
cgit v1.2.3