diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-07-20 12:22:50 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-07-20 12:22:50 +0200 |
commit | bb6efb5c4092131f46032c74f9fcc322b5db2b6a (patch) | |
tree | a6908e890391c87e71e1f592892ae37cec7d65e4 /src | |
parent | be154c721dd26287173a654bec74cf6a2fc99596 (diff) | |
download | ghdl-bb6efb5c4092131f46032c74f9fcc322b5db2b6a.tar.gz ghdl-bb6efb5c4092131f46032c74f9fcc322b5db2b6a.tar.bz2 ghdl-bb6efb5c4092131f46032c74f9fcc322b5db2b6a.zip |
synth: support index of a constant.
Diffstat (limited to 'src')
-rw-r--r-- | src/synth/synth-values.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb index c1b83ec71..47c47e279 100644 --- a/src/synth/synth-values.adb +++ b/src/synth/synth-values.adb @@ -296,6 +296,10 @@ package body Synth.Values is return Val.N_Bound; when Value_Wire => return Val.W_Bound; + when Value_Array => + -- For constants. + pragma Assert (Val.Bounds.Len = 1); + return Val.Bounds.D (1); when others => raise Internal_Error; end case; |