OpenCores
URL https://opencores.org/ocsvn/fpuvhdl/fpuvhdl/trunk

Subversion Repositories fpuvhdl

[/] [fpuvhdl/] [trunk/] [fpuvhdl/] [common/] [fpnormalize_fpnormalize.vhd] - Blame information for rev 5

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 3 gmarcus
--
2
-- VHDL Architecture HAVOC.FPnormalize.FPnormalize
3
--
4
-- Created:
5
--          by - Guillermo
6
--          at - ITESM, 10:51:00 07/16/03
7
--
8
-- Generated by Mentor Graphics' HDL Designer(TM) 2002.1b (Build 7)
9
--
10
-- hds interface_start
11
LIBRARY ieee;
12
USE ieee.std_logic_1164.all;
13
USE ieee.std_logic_arith.all;
14
USE ieee.std_logic_unsigned.all;
15
 
16
 
17
ENTITY FPnormalize IS
18
   GENERIC(
19
      SIG_width : integer := 28
20
   );
21
   PORT(
22
      SIG_in  : IN     std_logic_vector (SIG_width-1 DOWNTO 0);
23
      EXP_in  : IN     std_logic_vector (7 DOWNTO 0);
24
      SIG_out : OUT    std_logic_vector (SIG_width-1 DOWNTO 0);
25
      EXP_out : OUT    std_logic_vector (7 DOWNTO 0)
26
   );
27
 
28
-- Declarations
29
 
30
END FPnormalize ;
31
 
32
 
33
-- hds interface_end
34
ARCHITECTURE FPnormalize OF FPnormalize IS
35
BEGIN
36
 
37
PROCESS(SIG_in, EXP_in)
38
BEGIN
39
        IF (SIG_in( SIG_width-1 )='1') THEN
40
                SIG_out <= '0' & SIG_in(SIG_width-1 DOWNTO 2) & (SIG_in(1) AND SIG_in(0));
41
                EXP_out <= EXP_in + 1;
42
        ELSE
43
                SIG_out <= SIG_in;
44
                EXP_out <= EXP_in;
45
        END IF;
46
END PROCESS;
47
 
48
END FPnormalize;
49
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.