diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-07-25 11:38:17 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-07-25 11:38:17 +0200 |
| commit | 81502d5d023ea5fbd71970497af2b7168fdb41c7 (patch) | |
| tree | 60571f2aff1dd5369897e215f65ede6be6689f32 /src/vhdl/translate | |
| parent | 6b218517c8838d68008ab6031debcdbe1ad9bf0e (diff) | |
| download | ghdl-81502d5d023ea5fbd71970497af2b7168fdb41c7.tar.gz ghdl-81502d5d023ea5fbd71970497af2b7168fdb41c7.tar.bz2 ghdl-81502d5d023ea5fbd71970497af2b7168fdb41c7.zip | |
trans-chap3: do not rewrite layout bounds when constant.
Diffstat (limited to 'src/vhdl/translate')
| -rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index f05e328a8..e1997c226 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -772,6 +772,11 @@ package body Trans.Chap3 is is Info : constant Type_Info_Acc := Get_Info (Def); begin + if Is_Static_Type (Info) then + -- Created as a constant. + return; + end if; + Elab_Composite_Subtype_Layout (Def, Get_Composite_Type_Layout (Info)); if Is_Complex_Type (Info) then |