diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-03-06 21:44:37 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-03-06 21:44:37 +0100 |
| commit | d9ca411fb04f177b3774c73805def10039037f3a (patch) | |
| tree | d69e8aa0ef5b76250c50c6fb6d337447cc405540 /translate | |
| parent | f50257ffb93adf74595428ea24dc9e5cdfe62bdf (diff) | |
| download | ghdl-d9ca411fb04f177b3774c73805def10039037f3a.tar.gz ghdl-d9ca411fb04f177b3774c73805def10039037f3a.tar.bz2 ghdl-d9ca411fb04f177b3774c73805def10039037f3a.zip | |
Translation: fix allocated object for individual association in procedure call.
Diffstat (limited to 'translate')
| -rw-r--r-- | translate/translation.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/translate/translation.adb b/translate/translation.adb index 50e047c11..908d8199d 100644 --- a/translate/translation.adb +++ b/translate/translation.adb @@ -20394,11 +20394,11 @@ package body Translation is if Ftype_Info.Type_Mode = Type_Mode_Fat_Array then Chap3.Create_Array_Subtype (Actual_Type, True); Bounds := M2E (Chap3.Get_Array_Type_Bounds (Actual_Type)); - Param := Create_Temp (Ftype_Info, Mode_Value); + Param := Create_Temp (Ftype_Info, Formal_Object_Kind); Chap3.Translate_Object_Allocation (Param, Alloc_Stack, Formal_Type, Bounds); else - Param := Create_Temp (Ftype_Info, Mode_Value); + Param := Create_Temp (Ftype_Info, Formal_Object_Kind); Chap4.Allocate_Complex_Object (Formal_Type, Alloc_Stack, Param); end if; |