From 690024a625339dc3aea698b4f30b7ceb41cab2e9 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 11 Mar 2020 21:20:05 +0100
Subject: synth: handle conversions for enumerations.

---
 src/synth/synth-expr.adb | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src')

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;
-- 
cgit v1.2.3