diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-28 20:08:57 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-28 20:08:57 +0100 |
| commit | d668cd01ffb82e91fbec587df547087d291f0fbb (patch) | |
| tree | 3b4dedeeab2cf1596aa5bc02b0bf7daa0ae5687d /src | |
| parent | 110fccbca3326257be35caf1c89d2571df2db1a2 (diff) | |
| download | ghdl-d668cd01ffb82e91fbec587df547087d291f0fbb.tar.gz ghdl-d668cd01ffb82e91fbec587df547087d291f0fbb.tar.bz2 ghdl-d668cd01ffb82e91fbec587df547087d291f0fbb.zip | |
elab-vhdl_annotations: remove useless code
Diffstat (limited to 'src')
| -rw-r--r-- | src/synth/elab-vhdl_annotations.adb | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/src/synth/elab-vhdl_annotations.adb b/src/synth/elab-vhdl_annotations.adb index 3a076cde2..c92d83bee 100644 --- a/src/synth/elab-vhdl_annotations.adb +++ b/src/synth/elab-vhdl_annotations.adb @@ -221,24 +221,6 @@ package body Elab.Vhdl_Annotations is | Iir_Kind_Physical_Subtype_Definition => Annotate_Anonymous_Type_Definition (Block_Info, Get_Base_Type (Def)); - El := Get_Range_Constraint (Def); - if El /= Null_Iir then - case Get_Kind (El) is - when Iir_Kind_Range_Expression => - -- A physical subtype may be defined by an integer range. - if Get_Kind (Def) = Iir_Kind_Physical_Subtype_Definition - then - null; - -- FIXME - -- Convert_Int_To_Phys (Get_Ann (El).Value); - end if; - when Iir_Kind_Range_Array_Attribute - | Iir_Kind_Reverse_Range_Array_Attribute => - null; - when others => - Error_Kind ("annotate_type_definition (rc)", El); - end case; - end if; Create_Object_Info (Block_Info, Def, Kind_Type); when Iir_Kind_Integer_Type_Definition => |