Subversion Repositories raytrac

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

--! @file finvr32.vhd

--! @brief RayTrac Floating Point Adder  

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

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

-- RAYTRAC (FP BRANCH)

-- Author Julian Andres Guarin

-- finvr32.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 invr32 is

        port (

                clk             : in std_logic;

                dvd32   : in xfloat32;

                qout32  : out xfloat32

        );

end entity;

architecture invr32_arch of invr32 is

        component altsyncram

        generic (

                address_aclr_a          : string;

                clock_enable_input_a            : string;

                clock_enable_output_a           : string;

                init_file               : string;

                intended_device_family          : string;

                lpm_hint                : string;

                lpm_type                : string;

                numwords_a              : natural;

                operation_mode          : string;

                outdata_aclr_a          : string;

                outdata_reg_a           : string;

                widthad_a               : natural;

                width_a         : natural;

                width_byteena_a         : natural

        );

        port (

                        clock0  : in std_logic ;

                        rden_a  : in std_logic;

                        address_a       : in std_logic_vector (9 downto 0);

                        q_a     : out std_logic_vector (17 downto 0)

        );

        end component;

        signal s0sgn                    : std_logic;

        signal s0uexp,s0e129    : std_logic_vector(7 downto 0);

        signal s0q                              : std_logic_vector(17 downto 0);

        signal sxprop                   : std_logic;

begin

        altsyncram_component : altsyncram

        generic map (

                address_aclr_a => "NONE",

                clock_enable_input_a => "BYPASS",

                clock_enable_output_a => "BYPASS",

                --init_file => "X:/Tesis/Workspace/hw/rt_lib/arith/src/trunk/fpbranch/invr/meminvr.mif",

                init_file => "./meminvr.mif",

                intended_device_family => "Cyclone III",

                lpm_hint => "ENABLE_RUNTIME_MOD=NO",

                lpm_type => "altsyncram",

                numwords_a => 1024,

                operation_mode => "ROM",

                outdata_aclr_a => "NONE",

                outdata_reg_a => "UNREGISTERED",

                widthad_a => 10,

                width_a => 18,

                width_byteena_a => 1

        )

        port map (

                clock0 => clk,

                rden_a => '1',

                address_a => dvd32(22 downto 13),

                q_a => s0q

        );

        --! SNAN?

        process (clk)

        begin

                if clk'event and clk='1'  then

                        --!Carga de Operando.

                        s0sgn <= dvd32(31);

                        s0uexp <= dvd32(30 downto 23);

                end if;

        end process;

        qout32(31) <= s0sgn;

        process (s0e129,s0q)

        begin

                --! Etapa 0: Calcular dirección a partir del exponente, salida y normalización de la mantissa.

                if s0q(17)='1' then

                        qout32(22 downto 7) <= (others => '0');

                        qout32(30 downto 23) <= s0e129+255;

                else

                        qout32(22 downto 7) <= s0q(15 downto 0);

                        qout32(30 downto 23) <= s0e129+254;

                end if;

        end process;

        --! Combinatorial Gremlin: Etapa 0, calculo del exponente. 

        process(s0uexp)

        begin

                for i in 7 downto 0 loop

                        s0e129(i)<=not(s0uexp(i));

                end loop;

        end process;

        qout32(6 downto 0) <= (others => '0');

end architecture;