aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth
diff options
context:
space:
mode:
Diffstat (limited to 'src/synth')
-rw-r--r--src/synth/netlists-disp_vhdl.adb8
1 files changed, 6 insertions, 2 deletions
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;