From acdafdc2123b8e413d8433fec79aa30f7c5304d6 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 12 Nov 2019 18:40:47 +0100
Subject: synth-expr: reshape: handle consts.

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

(limited to 'src')

diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index 43109aa84..b30aa94ce 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -767,6 +767,8 @@ package body Synth.Expr is
             return Create_Value_Net (Val.N, Ntype);
          when Value_Alias =>
             return Create_Value_Alias (Val.A_Obj, Val.A_Off, Ntype);
+         when Value_Const =>
+            return Reshape_Value (Val.C_Val, Ntype);
          when others =>
             raise Internal_Error;
       end case;
-- 
cgit v1.2.3