diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-11-12 20:22:30 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-11-12 20:36:04 +0100 |
| commit | c2b6fd2775bdfb183a4de81d64f745e282ffd9fb (patch) | |
| tree | 8be0ab894d88eb7f771da67276a9337e7d07ece0 /src/synth/synth-values.adb | |
| parent | a4a587d729314a8741b72284f624f167fa675062 (diff) | |
| download | ghdl-c2b6fd2775bdfb183a4de81d64f745e282ffd9fb.tar.gz ghdl-c2b6fd2775bdfb183a4de81d64f745e282ffd9fb.tar.bz2 ghdl-c2b6fd2775bdfb183a4de81d64f745e282ffd9fb.zip | |
synth-stmts: return sub arrays/records for
Diffstat (limited to 'src/synth/synth-values.adb')
| -rw-r--r-- | src/synth/synth-values.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb index a27056ee5..657cd457f 100644 --- a/src/synth/synth-values.adb +++ b/src/synth/synth-values.adb @@ -803,7 +803,7 @@ package body Synth.Values is raise Internal_Error; when Type_Array => declare - El_Typ : constant Type_Acc := Typ.Vec_El; + El_Typ : constant Type_Acc := Get_Array_Element (Typ); Arr : Value_Array_Acc; begin Arr := Create_Value_Array |