blob: df4544e4e3622c352cb3005bc9699a0062eae8bb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ %target=linux,android }
{ %skiptarget=$nosharedlib }
{ %needlibrary }
{ %delfiles=tlib2a }
uses dl;
var
hdl : Pointer;
begin
WriteLn('dlopen');
hdl := dlopen('./libtlib2a.so', RTLD_LAZY);
if hdl = nil then
WriteLn(dlerror())
else
begin
WriteLn('dlclose');
dlclose(hdl);
end;
WriteLn('exit');
end.
|
