diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-07-25 07:20:46 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-07-25 07:20:46 +0200 |
| commit | 6e1f2bbd6eabc81206b136d749182426196bb6d9 (patch) | |
| tree | 5e9e680b59ae4e14cee66c3b8e8db4acb132347b /src/synth/synth-stmts.adb | |
| parent | f992c33f302b0e5060d30dedff94ee9fa15190ef (diff) | |
| download | ghdl-6e1f2bbd6eabc81206b136d749182426196bb6d9.tar.gz ghdl-6e1f2bbd6eabc81206b136d749182426196bb6d9.tar.bz2 ghdl-6e1f2bbd6eabc81206b136d749182426196bb6d9.zip | |
synth: array inequality, integer in choices.
Diffstat (limited to 'src/synth/synth-stmts.adb')
| -rw-r--r-- | src/synth/synth-stmts.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index 53d4f4515..5aad73c76 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -355,6 +355,10 @@ package body Synth.Stmts is when Iir_Kind_Enumeration_Type_Definition => Dc := 0; Val := Uns64 (Get_Enum_Pos (Strip_Denoting_Name (Expr))); + when Iir_Kind_Integer_Type_Definition => + -- TODO: signed values. + Dc := 0; + Val := Uns64 (Get_Value (Expr)); when others => Error_Kind ("convert_to_uns64", Expr_Type); end case; |