aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth/elab-vhdl_objtypes.adb
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2022-06-09 07:52:39 +0200
committerTristan Gingold <tgingold@free.fr>2022-06-09 07:52:39 +0200
commit46bd0ff2b72f47fa7e12612f66bcae0cb2003b7a (patch)
treef4f98f223bd97f85575342d935563bfdfe001c9b /src/synth/elab-vhdl_objtypes.adb
parent7064ef37029a883d0098d0af665231b36854d5e2 (diff)
downloadghdl-46bd0ff2b72f47fa7e12612f66bcae0cb2003b7a.tar.gz
ghdl-46bd0ff2b72f47fa7e12612f66bcae0cb2003b7a.tar.bz2
ghdl-46bd0ff2b72f47fa7e12612f66bcae0cb2003b7a.zip
elab-vhdl_types(Elab_Declaration_Type): rework to handle 'subtype
Fix #2085
Diffstat (limited to 'src/synth/elab-vhdl_objtypes.adb')
-rw-r--r--src/synth/elab-vhdl_objtypes.adb2
1 files changed, 2 insertions, 0 deletions
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;