Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.0.0 / tests / webtbs / uw7838a.pp
Size: Mime:
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.