Subversion Repositories special_functions_unit

-- multiplicador Ripple Carry.

Library IEEE;

use ieee.std_logic_1164.all;

use ieee.numeric_std.all;

entity multFP is

port(

        entrada_x, entrada_y: in std_logic_vector(31 downto 0);

        salida: out std_logic_vector(31 downto 0);

        underflow, overflow :out std_logic

        );

end multFP;

architecture ar of multFP is

type desplazar is array(0 to 47) of std_logic_vector(47 downto 0);

signal mantisa_finalex :desplazar :=(others=>(others=>'0'));

signal mantisa1_n,mantisa2_n :std_logic_vector(23 downto 0);

signal mantisa_final :std_logic_vector(47 downto 0);

signal mantisa_real :std_logic_vector(22 downto 0);

signal resultado :std_logic_vector(31 downto 0);

signal exponente_final :std_logic_vector(9 downto 0);

signal exponentex,exponentey :std_logic_vector(9 downto 0);

signal sunderflow, soverflow :std_logic;

begin

-- Se suman exponentes:

--exponente_final(7 downto 0) contiene el exponente listo.

mantisa1_n <= '1' & entrada_x(22 downto 0);                              -- inclusion de 1 en el bit mas significativo para multiplicacion. 

mantisa2_n <= '1' & entrada_y(22 downto 0);

exponentex <= "00"& entrada_x(30 downto 23);

exponentey <= "00"& entrada_y(30 downto 23);

-- operacion sobre la mantisa.          

mantisa_final<=std_logic_vector(unsigned(mantisa1_n)*unsigned(mantisa2_n));

process(entrada_x,entrada_y,resultado,sunderflow,soverflow)

begin

if unsigned(entrada_x) = X"00000000" or unsigned(entrada_y) = X"00000000" or unsigned(entrada_x) = X"80000000" or unsigned(entrada_y) = X"80000000"  then -- no se realiza la operacion, uno de los operandos es cero por lo tanto la respuesta es cero.

        salida <= (others=>'0');

        underflow <='0';

        overflow <= '0';

else                                            -- se realiza la operacion.

        underflow<=sunderflow;

        overflow<= soverflow;

        salida <= resultado;

        salida(31)<= (entrada_x(31) xor entrada_y(31));  -- asignacion de signo al resultado.

end if;

end process;

process(mantisa_final,exponentex,exponentey)

begin

        if(mantisa_final(47)='1') then

                exponente_final <= std_logic_vector((unsigned(exponentex) + unsigned(exponentey)) - 126);

        else

                exponente_final <= std_logic_vector((unsigned(exponentex) + unsigned(exponentey)) - 127);

        end if;

end process;

process(exponente_final,mantisa_real)

begin

if signed(exponente_final) > 255 then                   -- finaliza la operacion si hay overflow.

        soverflow<='1';

        sunderflow<='0';

        resultado <= (others=>'0');

elsif   signed(exponente_final) < 0 then                 -- finaliza la operacion si hay underflow.

        sunderflow<='1';

        soverflow<='0';

        resultado <= (others=>'0');

else                                                                                    -- continue con la operacion.           

        sunderflow<='0';

        soverflow<='0';

        -- asignacion final del resultado.

        resultado(22 downto 0) <= mantisa_real;          -- Mantisa.

        resultado(30 downto 23) <= exponente_final(7 downto 0);  -- Exponente.

end if;

end process;

mantisa_finalex(47) <= mantisa_final;

NX:for i in 46 downto 0 generate

        mantisa_finalex(i) <= mantisa_finalex(i+1)(46 downto 0) & '0';

end generate;

process(mantisa_final,mantisa_finalex)

variable var :integer;

begin

var:=0;

for i in 0 to 47 loop

        if(mantisa_final(i)='1') then

                var:=i;

        end if;

end loop;

mantisa_real <= mantisa_finalex(var)(46 downto 24);

end process;

end ar;