diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-06-24 07:47:03 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-06-24 21:41:07 +0200 |
| commit | b85a4d387b378d3b15e115293c0bf01728229f52 (patch) | |
| tree | 28ceb5ecfa9f1790643e40c442458edd24969a2e /src/vhdl/vhdl-sem_names.adb | |
| parent | e359f04bdaa8b5cad3846d333f9dedf4df62c1ef (diff) | |
| download | ghdl-b85a4d387b378d3b15e115293c0bf01728229f52.tar.gz ghdl-b85a4d387b378d3b15e115293c0bf01728229f52.tar.bz2 ghdl-b85a4d387b378d3b15e115293c0bf01728229f52.zip | |
vhdl/translate: rework object type elaboration. For #641
Diffstat (limited to 'src/vhdl/vhdl-sem_names.adb')
| -rw-r--r-- | src/vhdl/vhdl-sem_names.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_names.adb b/src/vhdl/vhdl-sem_names.adb index 7f1766b5b..9463b1b37 100644 --- a/src/vhdl/vhdl-sem_names.adb +++ b/src/vhdl/vhdl-sem_names.adb @@ -3630,7 +3630,7 @@ package body Vhdl.Sem_Names is -- The type defined by 'subtype is always constrained. Create -- a subtype if it is not. Attr_Type := Get_Type (Prefix_Name); - if False then + if not Is_Fully_Constrained_Type (Attr_Type) then Attr_Type := Sem_Types.Build_Constrained_Subtype (Attr_Type, Attr); end if; |