Subversion Repositories raytrac

------------------------------------------------

--! @file RLshifter.vhd

--! @brief RayTrac Arithmetic Shifter 

--! @author Julián Andrés Guarín Reyes

--------------------------------------------------

-- RAYTRAC

-- Author Julian Andres Guarin

-- RLshifter.vhd

-- This file is part of raytrac.

-- 

--     raytrac is free software: you can redistribute it and/or modify

--     it under the terms of the GNU General Public License as published by

--     the Free Software Foundation, either version 3 of the License, or

--     (at your option) any later version.

-- 

--     raytrac is distributed in the hope that it will be useful,

--     but WITHOUT ANY WARRANTY; without even the implied warranty of

--     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

--     GNU General Public License for more details.

-- 

--     You should have received a copy of the GNU General Public License

--     along with raytrac.  If not, see <http://www.gnu.org/licenses/>

library ieee;

use ieee.std_logic_1164.all;

use ieee.std_logic_unsigned.all;

use work.arithpack.all;

entity RLshifter is

        generic (

                shiftFunction   : string  := "SQUARE_ROOT"

                mantissa_width  : integer := 18;

                width                   : integer := 32

        );

        port (

                exp             : in std_logic_vector (integer(ceil(log(real(width),2.0)))-1 downto 0);

                mantis  : in std_logic_vector (mantissa_width-1 downto 0);

                result  : out std_logic_vector (width-1 downto 0)

        );

end RLshifter;

architecture RLshifter_arch of RLshifter is

begin

        leftShift:

        if shiftFunction="SQUARE_ROOT" generate

                sqroot:

                process (mantis, exp)

                        variable expi : integer := conv_integer(exp);

                begin

                        result(width-1 downto expi+1)   <= (others=>'0');

                        result(expi     downto 0)                        <= mantissa(mantissa_width-1 downto mantissa_width-1-exp);

                end sqroot;

        end generate leftShift;

        rightShift:

        if shiftFunction="INVERSION" generate

                inverse:

                process (mantis,exp)

                        variable expi : integer := conv_integer(exp);

                begin

                        if expi>0 then

                                result (width-1 downto width-expi) <= (others => '0');

                        end if;

                        if mantissa_width+expi<width then

                                result (width-1-expi downto width-mantissa_width) <= mantisa(mantissa_width-1 downto 0);

                                result (width-mantissa_width-1 downto 0) <= (others => '0');

                        else

                                result (width-1-expi downto 0) <= mantisa(mantisa_width-1 downto mantissa_width-width+expi);

                        end if;

                end inverse;

end RLshifter_arch;