git-svn-id: trunk@14477 -
@@ -1,5 +1,4 @@
{ %target=win32 }
-{ %OPT=-Sew -vw }
uses
windows;
@@ -9,6 +8,7 @@ var
begin
WindowHandle:=0;
+ // the next code must compile but with a range check warning
SetWindowLong(WindowHandle, GWL_STYLE, WS_POPUP or WS_CLIPCHILDREN);
halt(0);
end.