1 files changed, 2 insertions, 0 deletions
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;