+ WS_* constants are longints, added type casts for constants > $7fffffff

git-svn-id: trunk@425 -

.gitattributes

@@ -5930,6 +5930,7 @@ tests/webtbs/tw3977.txt svneol=native#text/plain
 tests/webtbs/tw4010.pp svneol=native#text/plain
 tests/webtbs/tw4013.pp svneol=native#text/plain
 tests/webtbs/tw4038.pp svneol=native#text/plain
+tests/webtbs/tw4043.pp svneol=native#text/plain
 tests/webtbs/tw4055.pp svneol=native#text/plain
 tests/webtbs/tw4058.pp svneol=native#text/plain
 tests/webtbs/tw4078.pp svneol=native#text/plain

rtl/win32/wininc/defines.inc

@@ -676,8 +676,8 @@
      WS_MINIMIZEBOX = $20000;
      WS_OVERLAPPED = 0;
      WS_OVERLAPPEDWINDOW = $cf0000;
-     WS_POPUP = $80000000;
-     WS_POPUPWINDOW = $80880000;
+     WS_POPUP = LONG($80000000);
+     WS_POPUPWINDOW = LONG($80880000);
      WS_SIZEBOX = $40000;
      WS_SYSMENU = $80000;
      WS_TABSTOP = $10000;

tests/webtbs/tw4043.pp

@@ -0,0 +1,14 @@
+{ %target=win32 }
+{ %OPT=-Sew }
+
+uses
+  windows;
+
+var
+  WindowHandle : HWND;
+
+begin
+  WindowHandle:=0;
+  SetWindowLong(WindowHandle, GWL_STYLE, WS_POPUP or WS_CLIPCHILDREN);
+  halt(0);
+end.