From f535653a4a98ada2c8c4456a8186d97c1a444dd8 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 19 Mar 2020 19:31:04 +0100
Subject: synth-expr: fix handling of value_const in synth_subtype_conversion. 
 Fix #1165

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

(limited to 'src')

diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index 51d01f11e..8f9577081 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -995,7 +995,8 @@ package body Synth.Expr is
                      when Value_Discrete =>
                         return Create_Value_Discrete (Val.Scal, Dtype);
                      when Value_Const =>
-                        return Create_Value_Discrete (Val.C_Val.Scal, Dtype);
+                        return Synth_Subtype_Conversion
+                          (Val.C_Val, Dtype, Bounds, Loc);
                      when others =>
                         raise Internal_Error;
                   end case;
-- 
cgit v1.2.3