* Fixed tests to compile for wince.

git-svn-id: trunk@10733 -

tests/webtbs/tw6822b.pp

@@ -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');

tests/webtbs/tw7838a.pp

@@ -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

tests/webtbs/tw7838b.pp

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

tests/webtbs/uw7838a.pp

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