diff options
| -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 |