diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap7.ads')
| -rw-r--r-- | src/vhdl/translate/trans-chap7.ads | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap7.ads b/src/vhdl/translate/trans-chap7.ads index 45abb16b4..acb028c87 100644 --- a/src/vhdl/translate/trans-chap7.ads +++ b/src/vhdl/translate/trans-chap7.ads @@ -120,7 +120,8 @@ package Trans.Chap7 is (Target : Mnode; Target_Type : Iir; Aggr : Iir); -- Fill BOUNDS from aggregate AGGR. - procedure Translate_Aggregate_Bounds (Bounds : Mnode; Aggr : Iir); + procedure Translate_Aggregate_Bounds + (Bounds : Mnode; Aggr : Iir; Mode : Object_Kind_Type); -- Convert bounds access PTR to a fat pointer. function Bounds_Acc_To_Fat_Pointer (Ptr : O_Dnode; Acc_Type : Iir) |