testsuite/gna/issue152/ax_wb_pli_pkg.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

library ieee;
use     ieee.std_logic_1164.all;
use     ieee.numeric_std.all;

package ax_wb_pli_pkg is

  type bus_t is access integer;

  function init_queue(queue_id : integer) return integer;
    attribute foreign of init_queue : function is "VHPIDIRECT sim_init_queue";

  procedure delete_queue(queue_id : integer);
    attribute foreign of delete_queue : procedure is "VHPIDIRECT sim_delete_queue";

end package;

package body ax_wb_pli_pkg is

  function init_queue(queue_id : integer) return integer is
  begin
    assert false report "VHPI" severity failure;
  end function;

  procedure delete_queue(queue_id : integer) is
  begin
    assert false report "VHPI" severity failure;
  end procedure;

end package body;