diff --git a/tests/webtbs/tw1328.pp b/tests/webtbf/tw1328.pp similarity index 93% rename from tests/webtbs/tw1328.pp rename to tests/webtbf/tw1328.pp index 0bd2a98881..d85f02fede 100644 --- a/tests/webtbs/tw1328.pp +++ b/tests/webtbf/tw1328.pp @@ -1,3 +1,4 @@ +{ %FAIL } { %CPU=i386 } {$asmmode intel} begin diff --git a/tests/webtbs/tw1375.pp b/tests/webtbs/tw1375.pp index 8a6578b236..0d9adca1f7 100644 --- a/tests/webtbs/tw1375.pp +++ b/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. \ No newline at end of file