diff options
| -rw-r--r-- | src/synth/synth-disp_vhdl.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/synth/synth-disp_vhdl.adb b/src/synth/synth-disp_vhdl.adb index e2687d04d..43392147c 100644 --- a/src/synth/synth-disp_vhdl.adb +++ b/src/synth/synth-disp_vhdl.adb @@ -125,7 +125,11 @@ package body Synth.Disp_Vhdl is if W > 1 then Put ("std_logic_vector("); end if; - Put ("to_unsigned("); + if Typ.Drange.Is_Signed then + Put ("to_signed("); + else + Put ("to_unsigned("); + end if; Put (Pfx & "," & Width'Image (W) & ")"); if W > 1 then Put (")"); |