Преглед на файлове

* fixes to compile
* moved 1328 to fail

peter преди 25 години
родител
ревизия
88dc74a73f
променени са 2 файла, в които са добавени 5 реда и са изтрити 0 реда
  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 }
 { %CPU=i386 }
 {$asmmode intel}
 {$asmmode intel}
 begin
 begin

+ 4 - 0
tests/webtbs/tw1375.pp

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