From 8274d3ac100c1a05dd9fe74bb5d9aa7a371aa42e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 21 May 2020 17:27:49 +0200
Subject: netlists-disp_vhdl: fix id_sextend for 1 bit.

---
 src/synth/netlists-disp_vhdl.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb
index 84a53c866..c1289935c 100644
--- a/src/synth/netlists-disp_vhdl.adb
+++ b/src/synth/netlists-disp_vhdl.adb
@@ -1235,7 +1235,7 @@ package body Netlists.Disp_Vhdl is
                Disp_Template ("  \o0 <= ", Inst);
                if Iw = 1 then
                   Disp_Template ("(\n0 downto 0 => \i0); -- sext" & NL,
-                                 Inst, (0 => Ow));
+                                 Inst, (0 => Ow - 1));
                else
                   Disp_Template
                     ("std_logic_vector (resize (\si0, \n0));  --  sext" & NL,
-- 
cgit v1.2.3