diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-01-02 06:32:06 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-01-02 06:32:06 +0100 |
| commit | 603e2fe204cb578e2ac3f67b80a1c447205d40b2 (patch) | |
| tree | eeac64bd6b1d9d91971fc7b536e5f905236a2138 /src/vhdl/translate/trans-chap5.adb | |
| parent | 43a504a9722b739ab33393ecb2d1abc6962cc52f (diff) | |
| download | ghdl-603e2fe204cb578e2ac3f67b80a1c447205d40b2.tar.gz ghdl-603e2fe204cb578e2ac3f67b80a1c447205d40b2.tar.bz2 ghdl-603e2fe204cb578e2ac3f67b80a1c447205d40b2.zip | |
translate: WIP - refactoring for unbounded records.
Diffstat (limited to 'src/vhdl/translate/trans-chap5.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap5.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap5.adb b/src/vhdl/translate/trans-chap5.adb index b0e01dd54..2768e6ccd 100644 --- a/src/vhdl/translate/trans-chap5.adb +++ b/src/vhdl/translate/trans-chap5.adb @@ -538,7 +538,7 @@ package body Trans.Chap5 is Tinfo := Get_Info (Actual_Type); if Save and then - Get_Alloc_Kind_For_Var (Tinfo.S.Array_Bounds) = Alloc_Stack + Get_Alloc_Kind_For_Var (Tinfo.S.Composite_Bounds) = Alloc_Stack then -- We need a copy. Bounds_Copy := Alloc_Bounds (Actual_Type, Alloc_System); |