From 46bd0ff2b72f47fa7e12612f66bcae0cb2003b7a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 9 Jun 2022 07:52:39 +0200
Subject: elab-vhdl_types(Elab_Declaration_Type): rework to handle 'subtype

Fix #2085
---
 src/synth/elab-vhdl_objtypes.adb | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/synth/elab-vhdl_objtypes.adb')

diff --git a/src/synth/elab-vhdl_objtypes.adb b/src/synth/elab-vhdl_objtypes.adb
index 4815a495a..bea919a4d 100644
--- a/src/synth/elab-vhdl_objtypes.adb
+++ b/src/synth/elab-vhdl_objtypes.adb
@@ -841,6 +841,7 @@ package body Elab.Vhdl_Objtypes is
       Boolean_Type := Create_Bit_Type;
       Logic_Type := Create_Logic_Type;
       Bit_Type := Create_Bit_Type;
+      Protected_Type := Create_Protected_Type;
 
       Bit0 := (Bit_Type, To_Memory_Ptr (Bit0_Mem'Address));
       Bit1 := (Bit_Type, To_Memory_Ptr (Bit1_Mem'Address));
@@ -855,6 +856,7 @@ package body Elab.Vhdl_Objtypes is
       Boolean_Type := null;
       Logic_Type := null;
       Bit_Type := null;
+      Protected_Type := null;
 
       Bit0 := Null_Memtyp;
       Bit1 := Null_Memtyp;
-- 
cgit v1.2.3