blob: 46a7384ec902bbdd022d90f4973c2225b8abdcc8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ %target=win32,win64,wince,darwin,linux,freebsd,solaris,beos }
{ %needlibrary }
program project1;
{$mode objfpc}{$H+}
uses cmem;
const
{$ifdef windows}
libname='tw6586a.dll';
{$else}
libname='tw6586a';
{$linklib tw6586a}
{$endif}
procedure ExportTest1(input: longint); stdcall; external libname;
begin
writeln('Watch for Seg fault on closing');
end.
|
