mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
29 lines
370 B
ObjectPascal
29 lines
370 B
ObjectPascal
unit uw7838a;
|
|
{$mode objfpc} {$h+}
|
|
|
|
interface
|
|
|
|
var
|
|
aa: longint;
|
|
|
|
{$ifdef windows}
|
|
function exetest: longint; external 'tw7838b.exe';
|
|
{$endif}
|
|
|
|
{$ifdef unix}
|
|
function exetest: longint; external name 'exetest';
|
|
{$endif}
|
|
|
|
|
|
implementation
|
|
|
|
initialization
|
|
writeln('libunit1 initialization');
|
|
aa:=5;
|
|
|
|
finalization
|
|
|
|
writeln('libunit1 finalization');
|
|
aa:=-5;
|
|
end.
|