From 51ec2af1a91f57a7315c528fae0e824d7965e5be Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 30 Sep 2016 20:29:19 +0200
Subject: Minor code factorization.

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

(limited to 'src/vhdl')

diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb
index faba5082a..b6acc18c5 100644
--- a/src/vhdl/translate/trans-chap3.adb
+++ b/src/vhdl/translate/trans-chap3.adb
@@ -1929,15 +1929,15 @@ package body Trans.Chap3 is
                --  Type is being completed.
                Complete_Info := Info;
                Clear_Info (Def);
-               Info := Add_Info (Def, Kind_Type);
             when others =>
                raise Internal_Error;
          end case;
       else
          Complete_Info := null;
-         Info := Add_Info (Def, Kind_Type);
       end if;
 
+      Info := Add_Info (Def, Kind_Type);
+
       Base_Type := Get_Base_Type (Def);
       Base_Info := Get_Info (Base_Type);
 
-- 
cgit v1.2.3