Browse Source

* fixes to compile
* moved 1328 to fail

peter 24 years ago
parent
commit
88dc74a73f
2 changed files with 5 additions and 0 deletions
  1. 1 0
      tests/webtbf/tw1328.pp
  2. 4 0
      tests/webtbs/tw1375.pp

+ 1 - 0
tests/webtbs/tw1328.pp → tests/webtbf/tw1328.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { %CPU=i386 }
 {$asmmode intel}
 begin

+ 4 - 0
tests/webtbs/tw1375.pp

@@ -10,7 +10,11 @@ Does not compile in FPC:
 *)
 
 program test1;
+{$ifdef win32}
 uses windows;
+{$endif}
 begin
+{$ifdef win32}
   InvalidateRect (HWND(0), pointer(0), TRUE);
+{$endif}
 end.