2 changed files with 35 additions and 35 deletions
@ -1,19 +1,19 @@
@@ -1,19 +1,19 @@
|
||||
package glibc_random_helpers is |
||||
procedure srand (v : integer); |
||||
attribute foreign of srand : procedure is "VHPIDIRECT srand"; |
||||
procedure srand (v : integer); |
||||
attribute foreign of srand : procedure is "VHPIDIRECT srand"; |
||||
|
||||
function random return integer; |
||||
attribute foreign of random : function is "VHPIDIRECT random"; |
||||
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; |
||||
procedure srand (v : integer) is |
||||
begin |
||||
assert false severity failure; |
||||
end srand; |
||||
|
||||
function random return integer is |
||||
begin |
||||
assert false severity failure; |
||||
end random; |
||||
function random return integer is |
||||
begin |
||||
assert false severity failure; |
||||
end random; |
||||
end glibc_random_helpers; |
||||
|
Loading…
Reference in new issue