diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-03-11 21:20:05 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-03-13 06:30:28 +0100 |
| commit | 690024a625339dc3aea698b4f30b7ceb41cab2e9 (patch) | |
| tree | c685d5815281a506e2cc60df6a80fdcca6666ba9 | |
| parent | f18f3f74a73c8677698a2797d5ae6b5b458351e3 (diff) | |
| download | ghdl-690024a625339dc3aea698b4f30b7ceb41cab2e9.tar.gz ghdl-690024a625339dc3aea698b4f30b7ceb41cab2e9.tar.bz2 ghdl-690024a625339dc3aea698b4f30b7ceb41cab2e9.zip | |
synth: handle conversions for enumerations.
| -rw-r--r-- | src/synth/synth-expr.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index 3ac24cded..c447bef85 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -1661,8 +1661,13 @@ package body Synth.Expr is when others => Error_Msg_Synth (+Conv, "unhandled type conversion (to array)"); - return Val; + return null; end case; + when Iir_Kind_Enumeration_Type_Definition + | Iir_Kind_Enumeration_Subtype_Definition => + pragma Assert (Get_Base_Type (Get_Type (Expr)) + = Get_Base_Type (Conv_Type)); + return Val; when others => Error_Msg_Synth (+Conv, "unhandled type conversion"); return null; |