diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-11-04 18:53:03 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-11-04 18:53:03 +0100 |
commit | 5457d16802b7679637acc0eab6569334d88f7c6c (patch) | |
tree | a6be0cbb4f709cf4e218fdbf6d19062d5f6191e0 /src/synth/synth-values.adb | |
parent | cde20d1471c25e3fb4b38ffb48e9972412c09ca5 (diff) | |
download | ghdl-5457d16802b7679637acc0eab6569334d88f7c6c.tar.gz ghdl-5457d16802b7679637acc0eab6569334d88f7c6c.tar.bz2 ghdl-5457d16802b7679637acc0eab6569334d88f7c6c.zip |
synth-expr: handle vhdl 2008 aggregates (partially).
Diffstat (limited to 'src/synth/synth-values.adb')
-rw-r--r-- | src/synth/synth-values.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb index 610d15d75..454179617 100644 --- a/src/synth/synth-values.adb +++ b/src/synth/synth-values.adb @@ -626,21 +626,21 @@ package body Synth.Values is return Atype.W; end Get_Type_Width; - function Get_Bound_Length (L : Type_Acc; Dim : Iir_Index32) return Width is + function Get_Bound_Length (T : Type_Acc; Dim : Iir_Index32) return Width is begin - case L.Kind is + case T.Kind is when Type_Vector => if Dim /= 1 then raise Internal_Error; end if; - return L.Vbound.Len; + return T.Vbound.Len; when Type_Slice => if Dim /= 1 then raise Internal_Error; end if; - return L.W; + return T.W; when Type_Array => - return L.Abounds.D (Dim).Len; + return T.Abounds.D (Dim).Len; when others => raise Internal_Error; end case; |