将二进制数转换为二进制数得到一个补码的输入库ieee

嗨，
我写下面的代码将二进制数转换为二进制补码，但在结果中我得到一个补码的输入
库ieee;使用ieee.std_logic_1164.all;使用ieee.std_logic_signed.all;包comp_p是函数补码（A：在std_logic_vector（11 downto 0） -  A_Comp：std_logic_vector（11 downto 0）;  -  A_Cout：std_logic）return std_logic_vector
;
结束comp_p;
package body comp_p是函数补码（A：在std_logic_vector（11 downto 0） -  A_Comp：std_logic_vector（11 downto 0）;  -  A_Cout：std_logic）return std_logic_vector isvariable A_invert：std_logic_vector（11 downto 0）;变量A_carry：std_logic_vector（
12 downto 0）;变量b_comp：std_logic_vector（11 downto 0）;变量b_Cout，cin：std_logic; begin cin：='0';
A_invert：=不是A;
A_carry（0）：= cin;
对于i在0到11循环中b_comp（i）：= A_invert（i）xor A_carry（i）;
A_carry（i + 1）：= A_invert（i）和A_carry（i）;
结束循环;  -  cin：= A_carry（12）;返回b_comp;结束补充;结束comp_p;
请指出以上算法是否错误。
问候，
balachandra



以下为原文

Hi,
i have written below code to convert a binary number to two's complement, but in the results i get one's complement of the input
library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_signed.all;

package comp_p is
function complement(A : in std_logic_vector (11 downto 0)
--                 A_Comp : std_logic_vector (11 downto 0);
--                 A_Cout : std_logic
                 )  return std_logic_vector;
                 
end comp_p;
package body comp_p is
  
function complement(A :  in std_logic_vector (11 downto 0)
--                 A_Comp : std_logic_vector (11 downto 0);
--                 A_Cout : std_logic
                 )return std_logic_vector is
variable A_invert : std_logic_vector ( 11 downto 0 );
variable A_carry  : std_logic_vector ( 12 downto 0 );
variable b_comp   : std_logic_vector(11 downto 0);
variable b_Cout,cin   : std_logic;
begin
                       cin := '0';
                        A_invert := not A;
                        A_carry(0):= cin;
                for i in 0 to 11 loop
                        b_comp(i)  := A_invert(i) xor A_carry(i);
                        A_carry(i+1):= A_invert(i) and A_carry(i);
                end loop;
--                cin := A_carry(12);
return b_comp;
end complement;
end comp_p;

kindly indicate if above algorithm is wrong.
regards,
balachandra