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/ortho/llvm4-nodebug | |
| 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/ortho/llvm4-nodebug')
| -rw-r--r-- | src/ortho/llvm4-nodebug/ortho_llvm.adb | 5 | ||||
| -rw-r--r-- | src/ortho/llvm4-nodebug/ortho_llvm.ads | 3 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/ortho/llvm4-nodebug/ortho_llvm.adb b/src/ortho/llvm4-nodebug/ortho_llvm.adb index 2f0edca3c..68828497b 100644 --- a/src/ortho/llvm4-nodebug/ortho_llvm.adb +++ b/src/ortho/llvm4-nodebug/ortho_llvm.adb @@ -630,13 +630,12 @@ package body Ortho_LLVM is ---------------------- procedure Start_Array_Aggr - (List : out O_Array_Aggr_List; - Atype : O_Tnode) + (List : out O_Array_Aggr_List; Atype : O_Tnode; Len : Unsigned_32) is Llvm : constant TypeRef := Get_LLVM_Type (Atype); begin List := (Len => 0, - Vals => new ValueRefArray (1 .. GetArrayLength (Llvm)), + Vals => new ValueRefArray (1 .. unsigned (Len)), El_Type => GetElementType (Llvm), Atype => Atype); end Start_Array_Aggr; diff --git a/src/ortho/llvm4-nodebug/ortho_llvm.ads b/src/ortho/llvm4-nodebug/ortho_llvm.ads index 837f4846e..df30a5d8d 100644 --- a/src/ortho/llvm4-nodebug/ortho_llvm.ads +++ b/src/ortho/llvm4-nodebug/ortho_llvm.ads @@ -175,7 +175,8 @@ package Ortho_LLVM is procedure Finish_Record_Aggr (List : in out O_Record_Aggr_List; Res : out O_Cnode); - procedure Start_Array_Aggr (List : out O_Array_Aggr_List; Atype : O_Tnode); + procedure Start_Array_Aggr + (List : out O_Array_Aggr_List; Atype : O_Tnode; Len : Unsigned_32); procedure New_Array_Aggr_El (List : in out O_Array_Aggr_List; Value : O_Cnode); procedure Finish_Array_Aggr (List : in out O_Array_Aggr_List; |