fpcsrc/tests/webtbs/tw6586a.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{ %target=win32,win64,wince,darwin,linux,freebsd,solaris,beos }
{ %norun }

library tw6586a;
{$H+}{$MODE OBJFPC}

uses cmem;

procedure ExportTest1(input: longint); stdcall;
begin
 input:= 5;
end;

exports
  ExportTest1;

begin
end.