diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-05-15 20:40:43 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-05-15 20:40:43 +0200 |
| commit | 6133111653ce0734aa999a9b67a049873a94c9c2 (patch) | |
| tree | 298839e61bf4334ea7cce0631ec8bede3f83eb8e /src | |
| parent | 7791faea231292a261acfaf8e5a6c4f256744df3 (diff) | |
| download | ghdl-6133111653ce0734aa999a9b67a049873a94c9c2.tar.gz ghdl-6133111653ce0734aa999a9b67a049873a94c9c2.tar.bz2 ghdl-6133111653ce0734aa999a9b67a049873a94c9c2.zip | |
trans-chap8: handle unbounded records in trans_actual. Fix #788
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/translate/trans-chap8.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index 427a30464..d1bd4b085 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -3102,7 +3102,7 @@ package body Trans.Chap8 is then pragma Assert (Sig = O_Enode_Null); -- TODO - if Ftype_Info.Type_Mode = Type_Mode_Fat_Array then + if Ftype_Info.Type_Mode in Type_Mode_Unbounded then pragma Assert (Assoc_Info.Call_Assoc_Fat (Mode) /= Null_Var); -- Allocate array base |