WIP: Added getters for stall_config.

Author: LarsAsplund

vunit/vhdl/verification_components/src/axi_stream_pkg.vhd

@@ -246,11 +246,21 @@ package axi_stream_pkg is
     master : axi_stream_master_t;
     stall_config : stall_config_t
   );
+  procedure get_stall_config(
+    signal net : inout network_t;
+    master : axi_stream_master_t;
+    stall_config : out stall_config_t
+  );
   procedure set_stall_config(
     signal net : inout network_t;
     slave : axi_stream_slave_t;
     stall_config : stall_config_t
   );
+  procedure get_stall_config(
+    signal net : inout network_t;
+    slave : axi_stream_slave_t;
+    stall_config : out stall_config_t
+  );
 
   procedure set_inactive_axi_stream_policy(
     signal net : inout network_t;
@@ -956,6 +966,15 @@ package body axi_stream_pkg is
     send(net, master.p_actor, msg);
   end;
 
+  procedure get_stall_config(
+    signal net : inout network_t;
+    master : axi_stream_master_t;
+    stall_config : out stall_config_t
+  ) is
+  begin
+    stall_config := null_stall_config;
+  end;
+
   procedure set_stall_config(
     signal net : inout network_t;
     slave : axi_stream_slave_t;
@@ -968,6 +987,15 @@ package body axi_stream_pkg is
     send(net, slave.p_actor, msg);
   end;
 
+ procedure get_stall_config(
+    signal net : inout network_t;
+    slave : axi_stream_slave_t;
+    stall_config : out stall_config_t
+  ) is
+  begin
+    stall_config := null_stall_config;
+  end;
+
   procedure push_axi_stream_transaction(msg : msg_t; axi_stream_transaction : axi_stream_transaction_t) is
   begin
     push_std_ulogic_vector(msg, axi_stream_transaction.tdata);

vunit/vhdl/verification_components/test/tb_axi_stream.vhd

@@ -128,6 +128,7 @@ begin
     variable mock_logger : logger_t;
     variable rnd : RandomPtype;
     variable stall_config : stall_config_t;
+    variable stall_config_read_back : stall_config_t;
     variable stall_probability_percent : natural;
     variable previous_inactive_policy : inactive_bus_policy_t := 'X';
     variable loop_count : natural := 0;
@@ -686,11 +687,17 @@ begin
       wait until rising_edge(aclk);
       stall_probability_percent := 30;
       stall_config := new_stall_config(real(stall_probability_percent) / 100.0, min_stall_cycles, max_stall_cycles);
+
       if running_test_case = "test random stall on master" then
         set_stall_config(net, master_axi_stream, stall_config);
+        get_stall_config(net, master_axi_stream, stall_config_read_back);
       else
         set_stall_config(net, slave_axi_stream, stall_config);
+        get_stall_config(net, slave_axi_stream, stall_config_read_back);
       end if;
+      check_equal(stall_config_read_back.stall_probability, stall_config.stall_probability);
+      check_equal(stall_config_read_back.min_stall_cycles, stall_config.min_stall_cycles);
+      check_equal(stall_config_read_back.max_stall_cycles, stall_config.max_stall_cycles);
       for i in 0 to 100 loop
         pop_stream(net, slave_stream, reference);
         push(reference_queue, reference);