diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-08-05 07:34:00 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-08-05 07:34:00 +0200 |
commit | 6aac33f4b4ff3e3c1de252aec84de1e3e3f4ff8e (patch) | |
tree | 0df4902262cf9e292c130ec67550639431bd3be2 | |
parent | ee4d7c23285932e471d2896faa505621dc7253d3 (diff) | |
download | ghdl-6aac33f4b4ff3e3c1de252aec84de1e3e3f4ff8e.tar.gz ghdl-6aac33f4b4ff3e3c1de252aec84de1e3e3f4ff8e.tar.bz2 ghdl-6aac33f4b4ff3e3c1de252aec84de1e3e3f4ff8e.zip |
synth: handle signed conversions in disp_vhdl.
-rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 8 |
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; |