paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 09:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed tests to compile for wince.

Browse Source 
git-svn-id: trunk@10733 -
This commit is contained in:
yury 2008-04-19 23:21:24 +00:00
parent f9eb22394d
commit 7869db56cc
4 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw6822b.pp
View File

@ -16,9 +16,9 @@ libname = './libtw6822a.so';
{$endif darwin}
{$endif unix}
{$ifdef mswindows}
{$ifdef windows}
libname = 'tw6822a.dll';
{$endif mswindows}
{$endif windows}
begin
writeln('hello from loader program');

10
tests/webtbs/tw7838a.pp
View File

@ -7,15 +7,7 @@ library tw7838a;
uses uw7838a;
{$ifdef win32}
const
progname = '.\prog.exe';
{$endif}
function dllf: longint;
function dllf: longint;
begin
result:=exetest;
if (result<>aa) then

4
tests/webtbs/tw7838b.pp
View File

@ -24,8 +24,8 @@ const
libname = './libtw7838a.so';
{$endif}
{$endif}
{$ifdef mswindows}
libname = '.\tw7838a.dll';
{$ifdef windows}
libname = 'tw7838a.dll';
{$endif}
var

2
tests/webtbs/uw7838a.pp
View File

@ -6,7 +6,7 @@ interface
var
aa: longint;
{$ifdef mswindows}
{$ifdef windows}
function exetest: longint; external 'tw7838b.exe';
{$endif}