Explorar o código

tests: fixed SetWindowLong test

git-svn-id: trunk@14477 -
paul %!s(int64=15) %!d(string=hai) anos
pai
achega
e9770b180a
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      tests/webtbs/tw4043.pp

+ 1 - 1
tests/webtbs/tw4043.pp

@@ -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.