mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-03 22:09:45 +01:00
37 lines
737 B
ObjectPascal
37 lines
737 B
ObjectPascal
{ %target=darwin,linux,freebsd,solaris,beos,aix}
|
|
{ %NEEDLIBRARY }
|
|
|
|
{ same as tw8730c, but linking to libc so it uses different }
|
|
{ startup code }
|
|
|
|
{$mode delphi}
|
|
program MainApp;
|
|
|
|
uses
|
|
initc, sysutils;
|
|
|
|
const
|
|
{$ifdef windows}
|
|
libname='tw8730b.dll';
|
|
{$else}
|
|
libname='tw8730b';
|
|
{$linklib tw8730b}
|
|
{$endif}
|
|
|
|
function Lib2Func: pchar; CDecl; external libname name 'Lib2Func';
|
|
|
|
var
|
|
error: byte;
|
|
begin
|
|
error:=0;
|
|
WriteLn( Lib2Func );
|
|
if not(fileexists('tw8730a.txt')) or
|
|
not(fileexists('tw8730b.txt')) then
|
|
error:=1;
|
|
if (fileexists('tw8730a.txt')) then
|
|
deletefile('tw8730a.txt');
|
|
if (fileexists('tw8730b.txt')) then
|
|
deletefile('tw8730b.txt');
|
|
halt(error);
|
|
end.
|