blob: 5db5579e4163666a785162dee74afcf7c02e312e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ %target=win32,win64,wince,darwin,linux,freebsd,solaris,beos}
{ %needlibrary }
program ptest;
{$ifdef fpc}{$mode objfpc}{$H+}{$endif fpc}
const
{$if defined(windows) or defined(mswindows)}
libname='tw16949a.dll';
{$else}
libname='tw16949a';
{$linklib tw16949a}
{$ifend}
function foo: LongInt; cdecl; external libname;
begin
if foo<>12345 then
halt(1);
end.
|
