From 6aac33f4b4ff3e3c1de252aec84de1e3e3f4ff8e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 5 Aug 2019 07:34:00 +0200
Subject: synth: handle signed conversions in disp_vhdl.

---
 src/synth/netlists-disp_vhdl.adb | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb
index 55026054d..d714f35fe 100644
--- a/src/synth/netlists-disp_vhdl.adb
+++ b/src/synth/netlists-disp_vhdl.adb
@@ -363,7 +363,9 @@ package body Netlists.Disp_Vhdl is
                Disp_Lit (Inst);
                Put (")");
             when Conv_Signed =>
-               raise Internal_Error;
+               Put ("signed'(");
+               Disp_Lit (Inst);
+               Put (")");
          end case;
       else
          case Conv is
@@ -374,7 +376,9 @@ package body Netlists.Disp_Vhdl is
                Disp_Net_Name (N);
                Put (")");
             when Conv_Signed =>
-               raise Internal_Error;
+               Put ("signed (");
+               Disp_Net_Name (N);
+               Put (")");
          end case;
       end if;
    end Disp_Net_Expr;
-- 
cgit v1.2.3