diff options
Diffstat (limited to 'src/synth/synth-disp_vhdl.adb')
| -rw-r--r-- | src/synth/synth-disp_vhdl.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/synth/synth-disp_vhdl.adb b/src/synth/synth-disp_vhdl.adb index 61bf31534..13d69c984 100644 --- a/src/synth/synth-disp_vhdl.adb +++ b/src/synth/synth-disp_vhdl.adb @@ -222,7 +222,12 @@ package body Synth.Disp_Vhdl is when Iir_Kind_Integer_Type_Definition => -- FIXME: signed or unsigned ? W := Typ.W; - Put (" " & Pfx & " <= to_integer (unsigned"); + Put (" " & Pfx & " <= to_integer ("); + if Typ.Drange.Is_Signed then + Put ("signed"); + else + Put ("unsigned"); + end if; if W = 1 then Put ("'(0 => "); else |