mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-02 02:42:40 +02:00
99e1e85447
libraries on linux (mantis #6822) * fixed execution of library finalization sections on darwin (previously only the finalization section of the library compilation unit itself was executed, now those of the units used by the library are also executed) git-svn-id: trunk@10554 -
18 lines
238 B
ObjectPascal
18 lines
238 B
ObjectPascal
{ %target=win32,win64,wince,darwin,linux,freebsd,solaris,beos}
|
|
uses
|
|
SysUtils;
|
|
|
|
var
|
|
t: text;
|
|
begin
|
|
{ see uw6822a.pp }
|
|
assign(t,'uw6822a.txt');
|
|
{$i-}
|
|
reset(t);
|
|
{$i+}
|
|
if ioresult<>0 then
|
|
halt(1);
|
|
close(t);
|
|
erase(t);
|
|
end.
|