mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-02 02:42:40 +02:00
23 lines
365 B
ObjectPascal
23 lines
365 B
ObjectPascal
{ %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.
|