From 04cd83fb46bee1e7a7b37be95bee73449af9c8b8 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 24 Jul 2020 18:31:11 +0200 Subject: ortho: add unbounded records, rework array subtypes. --- src/vhdl/translate/translation.adb | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'src/vhdl/translate/translation.adb') diff --git a/src/vhdl/translate/translation.adb b/src/vhdl/translate/translation.adb index 519671970..b510a7ae5 100644 --- a/src/vhdl/translate/translation.adb +++ b/src/vhdl/translate/translation.adb @@ -1364,8 +1364,10 @@ package body Translation is -- Max length of a scalar type. -- Note: this type is not correctly aligned. Restricted use only. -- type __ghdl_scalar_bytes is __ghdl_chararray (0 .. 8); - Ghdl_Scalar_Bytes := New_Constrained_Array_Type - (Chararray_Type, New_Unsigned_Literal (Ghdl_Index_Type, 8)); + Ghdl_Scalar_Bytes := New_Array_Subtype + (Chararray_Type, + Char_Type_Node, + New_Unsigned_Literal (Ghdl_Index_Type, 8)); New_Type_Decl (Get_Identifier ("__ghdl_scalar_bytes"), Ghdl_Scalar_Bytes); @@ -2130,8 +2132,8 @@ package body Translation is -- Std_Ulogic indexed array of STD.Boolean. -- Used by PSL to convert Std_Ulogic to boolean. - Std_Ulogic_Boolean_Array_Type := - New_Constrained_Array_Type (Std_Boolean_Array_Type, New_Index_Lit (9)); + Std_Ulogic_Boolean_Array_Type := New_Array_Subtype + (Std_Boolean_Array_Type, Std_Boolean_Type_Node, New_Index_Lit (9)); New_Type_Decl (Get_Identifier ("__ghdl_std_ulogic_boolean_array_type"), Std_Ulogic_Boolean_Array_Type); New_Const_Decl (Ghdl_Std_Ulogic_To_Boolean_Array, -- cgit v1.2.3