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_arith.all;
use ieee.std_logic_unsigned.all;
use ieee.math_real.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;
		begin
			expi := conv_integer(exp);
			lupe:
			for i in width-1 downto 0 loop
				if i>expi then 
					result(i)<='0';
				else
					result(i)<=mantis(mantissa_width-1-expi+i);
				end if;
			end loop lupe;
		end process sqroot;
	end generate leftShift;
	rightShift:
	if shiftFunction="INVERSION" generate
		inverse:
		process (mantis,exp)
			variable expi : integer ;
		begin
			expi:= conv_integer(exp);
 
			for i in width-1 downto 0 loop
				if i<=width-1-expi and i>=width-expi-mantissa_width then
					result(i)
					<=mantis(mantissa_width-width+expi+i);
				else
					result(i)<='0';
				end if;
			end loop;
		end process inverse;
	end generate rightShift;
end RLshifter_arch;