From 81502d5d023ea5fbd71970497af2b7168fdb41c7 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 25 Jul 2020 11:38:17 +0200
Subject: trans-chap3: do not rewrite layout bounds when constant.

---
 src/vhdl/translate/trans-chap3.adb | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src')

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
-- 
cgit v1.2.3