You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
490 B
VHDL
20 lines
490 B
VHDL
5 years ago
|
package glibc_random_helpers is
|
||
|
|
procedure srand (v : integer);
|
||
|
|
attribute foreign of srand : procedure is "VHPIDIRECT srand";
|
||
|
|
|
||
|
|
function random return integer;
|
||
|
|
attribute foreign of random : function is "VHPIDIRECT random";
|
||
|
|
end glibc_random_helpers;
|
||
|
|
|
||
|
|
package body glibc_random_helpers is
|
||
|
|
procedure srand (v : integer) is
|
||
|
|
begin
|
||
|
|
assert false severity failure;
|
||
|
|
end srand;
|
||
|
|
|
||
|
|
function random return integer is
|
||
|
|
begin
|
||
|
|
assert false severity failure;
|
||
|
|
end random;
|
||
|
|
end glibc_random_helpers;
|