diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-05-27 17:50:12 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-05-28 17:47:48 +0200 |
| commit | 691d4875f0710e0603a7ae563600f9a6c041c6d6 (patch) | |
| tree | 529071dca47189003ebc87cc6e1c6afd5e12b975 /src/vhdl/translate/trans-helpers2.adb | |
| parent | 58756712b9465c24e1d2a198e5a03aae7ebbf774 (diff) | |
| download | ghdl-691d4875f0710e0603a7ae563600f9a6c041c6d6.tar.gz ghdl-691d4875f0710e0603a7ae563600f9a6c041c6d6.tar.bz2 ghdl-691d4875f0710e0603a7ae563600f9a6c041c6d6.zip | |
ortho: add a length parameter to start_array_aggr.
Diffstat (limited to 'src/vhdl/translate/trans-helpers2.adb')
| -rw-r--r-- | src/vhdl/translate/trans-helpers2.adb | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/vhdl/translate/trans-helpers2.adb b/src/vhdl/translate/trans-helpers2.adb index f05bf2477..4072fe321 100644 --- a/src/vhdl/translate/trans-helpers2.adb +++ b/src/vhdl/translate/trans-helpers2.adb @@ -51,7 +51,7 @@ package body Trans.Helpers2 is List : O_Array_Aggr_List; begin Start_Init_Value (Const); - Start_Array_Aggr (List, Const_Type); + Start_Array_Aggr (List, Const_Type, Str'Length + 1); for I in Str'Range loop New_Array_Aggr_El (List, @@ -64,12 +64,10 @@ package body Trans.Helpers2 is function Create_String (Str : String; Id : O_Ident) return O_Dnode is - Atype : O_Tnode; Const : O_Dnode; begin - Atype := Create_String_Type (Str); - New_Const_Decl (Const, Id, O_Storage_Private, Atype); - Create_String_Value (Const, Atype, Str); + New_Const_Decl (Const, Id, O_Storage_Private, Chararray_Type); + Create_String_Value (Const, Chararray_Type, Str); return Const; end Create_String; |