package test_pkg is
|
|
generic (
|
|
DEPTH : positive := 8
|
|
);
|
|
|
|
type t_test is protected
|
|
end protected t_test;
|
|
|
|
end package test_pkg;
|
|
|
|
package body test_pkg is
|
|
|
|
type t_test is protected body
|
|
end protected body;
|
|
|
|
end package body;
|
|
|
|
|
|
use std.env.all;
|
|
|
|
entity test is
|
|
end entity;
|
|
|
|
architecture sim of test is
|
|
|
|
package test_pkg_inst is new work.test_pkg;
|
|
|
|
shared variable s_test_pkg_inst : test_pkg_inst.t_test;
|
|
|
|
begin
|
|
|
|
stop(0);
|
|
|
|
end architecture sim;
|