diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-06-09 07:52:39 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-06-09 07:52:39 +0200 |
commit | 46bd0ff2b72f47fa7e12612f66bcae0cb2003b7a (patch) | |
tree | f4f98f223bd97f85575342d935563bfdfe001c9b /src/synth/elab-vhdl_objtypes.adb | |
parent | 7064ef37029a883d0098d0af665231b36854d5e2 (diff) | |
download | ghdl-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.adb | 2 |
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; |