85b9fa86ea8fd0204682bea64c12bf439e5fe452
[bos2k9.git] / fhw_rs232 / rs232_globals_p.vhd
1 -----------------------------------------------------------------------
2 -- Copyright (c) 2009 Malte S. Stretz <http://msquadrat.de> 
3 --
4 -- TODO
5 -- 
6 -----------------------------------------------------------------------
7 -- This entity is part of the following library:
8 -- pragma library fhw_rs232
9 library fhw_rs232;
10
11 library ieee;
12 use ieee.std_logic_1164.all;
13 use ieee.numeric_std.all;
14
15 package rs232_globals_p is
16   
17   function get_parity(
18     word : std_logic_vector;
19     even : std_logic) return std_logic;
20   
21 end rs232_globals_p;
22
23 package body rs232_globals_p is
24
25   function get_parity(
26     word : std_logic_vector;
27     even : std_logic) return std_logic is
28     variable par_v : std_logic;
29   begin
30     par_v := not even;
31     for i in word'high downto word'low loop
32       par_v := par_v xor word(i);
33     end loop;
34     return par_v;
35   end get_parity;
36   
37 end rs232_globals_p;