uart vc: implement parity on uart_master

Author: rafaelnp

vunit/vhdl/verification_components/src/uart_master.vhd

@@ -17,18 +17,22 @@ use work.uart_pkg.all;
 
 entity uart_master is
   generic (
-    uart : uart_master_t);
+    uart : uart_master_t
+  );
   port (
-    tx : out std_logic := uart.p_idle_state);
-end entity;
+    tx : out std_logic := uart.p_idle_state
+  );
+end entity uart_master;
 
 architecture a of uart_master is
 begin
 
   main : process
     procedure uart_send(data : std_logic_vector;
                         signal tx : out std_logic;
-                        baud_rate  : integer) is
+                        baud_rate  : integer;
+                        parity     : natural
+  ) is
       constant time_per_bit : time := (10**9 / baud_rate) * 1 ns;
 
       procedure send_bit(value : std_logic) is
@@ -43,11 +47,19 @@ begin
       for i in 0 to data'length-1 loop
         send_bit(data(i));
       end loop;
+
+      if parity = 1 then
+        send_bit(odd_parity(data));
+      elsif parity = 2 then
+        send_bit(even_parity(data));
+	  end if;
+
       send_bit(uart.p_idle_state);
     end procedure;
 
     variable msg : msg_t;
     variable baud_rate : natural := uart.p_baud_rate;
+    variable parity    : natural := uart.p_parity;
     variable msg_type : msg_type_t;
   begin
     receive(net, uart.p_actor, msg);
@@ -56,9 +68,11 @@ begin
     handle_sync_message(net, msg_type, msg);
 
     if msg_type = stream_push_msg then
-      uart_send(pop_std_ulogic_vector(msg), tx, baud_rate);
+      uart_send(pop_std_ulogic_vector(msg), tx, baud_rate, parity);
     elsif msg_type = uart_set_baud_rate_msg then
       baud_rate := pop(msg);
+    elsif msg_type = uart_set_parity_msg then
+      parity := pop(msg);
     else
       unexpected_msg_type(msg_type);
     end if;

vunit/vhdl/verification_components/src/uart_pkg.vhd

@@ -18,12 +18,14 @@ package uart_pkg is
   type uart_master_t is record
     p_actor : actor_t;
     p_baud_rate : natural;
+    p_parity     : natural;
     p_idle_state : std_logic;
-  end record;
+  end record uart_master_t;
 
   type uart_slave_t is record
     p_actor : actor_t;
     p_baud_rate : natural;
+    p_parity     : natural;
     p_idle_state : std_logic;
     p_data_length : positive;
   end record;
@@ -37,12 +39,25 @@ package uart_pkg is
                           uart_slave : uart_slave_t;
                           baud_rate : natural);
 
+  -- 0 = no parity, 1 = odd parity, 2 = even parity
+  procedure set_parity(signal net  : inout network_t;
+                       uart_master : uart_master_t;
+                       parity      : natural);
+
+  procedure set_parity(signal net : inout network_t;
+                       uart_slave : uart_slave_t;
+                       parity     : natural);
+
   constant default_baud_rate : natural := 115200;
   constant default_idle_state : std_logic := '1';
   constant default_data_length : positive := 8;
+  constant default_parity      : natural  := 0;
+
   impure function new_uart_master(initial_baud_rate : natural := default_baud_rate;
+                                  initial_parity : natural := default_parity;
                                   idle_state : std_logic := default_idle_state) return uart_master_t;
   impure function new_uart_slave(initial_baud_rate : natural := default_baud_rate;
+                                 initial_parity : natural := default_parity;
                                  idle_state : std_logic := default_idle_state;
                                  data_length : positive := default_data_length) return uart_slave_t;
 
@@ -52,24 +67,37 @@ package uart_pkg is
   impure function as_sync(uart_slave : uart_slave_t) return sync_handle_t;
 
   constant uart_set_baud_rate_msg : msg_type_t := new_msg_type("uart set baud rate");
+
+  constant uart_set_parity_msg : msg_type_t := new_msg_type("uart set parity rate");
+
+  function even_parity(data : std_logic_vector) return std_logic;
+  function odd_parity (data : std_logic_vector) return std_logic;
+
 end package;
 
 package body uart_pkg is
 
   impure function new_uart_master(initial_baud_rate : natural := default_baud_rate;
+                                  initial_parity : natural := default_parity;
                                   idle_state : std_logic := default_idle_state) return uart_master_t is
   begin
     return (p_actor => new_actor,
             p_baud_rate => initial_baud_rate,
+            p_parity    => initial_parity,
             p_idle_state => idle_state);
   end;
 
-  impure function new_uart_slave(initial_baud_rate : natural := default_baud_rate;
+  impure function new_uart_slave(
+                                 initial_baud_rate : natural := default_baud_rate;
+                                 initial_parity : natural := default_parity;
                                  idle_state : std_logic := default_idle_state;
-                                 data_length : positive := default_data_length) return uart_slave_t is
+                                 data_length : positive := default_data_length
+  ) return uart_slave_t is
+
   begin
     return (p_actor => new_actor,
             p_baud_rate => initial_baud_rate,
+            p_parity    => initial_parity,
             p_idle_state => idle_state,
             p_data_length => data_length);
   end;
@@ -116,4 +144,39 @@ package body uart_pkg is
   begin
     set_baud_rate(net, uart_slave.p_actor, baud_rate);
   end;
+
+  procedure set_parity(signal net : inout network_t;
+                       actor      : actor_t;
+                       parity     : natural) is
+    variable msg : msg_t := new_msg(uart_set_parity_msg);
+  begin
+    push(msg, parity);
+    send(net, actor, msg);
+  end;
+
+  procedure set_parity(signal net  : inout network_t;
+                       uart_master : uart_master_t;
+                       parity      : natural) is
+  begin
+    set_parity(net, uart_master.p_actor, parity);
+  end;
+
+  procedure set_parity(signal net : inout network_t;
+                       uart_slave : uart_slave_t;
+                       parity     : natural) is
+  begin
+    set_parity(net, uart_slave.p_actor, parity);
+  end;
+
+  function even_parity (data : std_logic_vector) return std_logic is
+  begin
+    return xor data;
+
+  end function even_parity;
+
+  function odd_parity (data : std_logic_vector) return std_logic is
+  begin
+
+    return xnor data;
+  end function odd_parity;
 end package body;