+ chck 1779 bug

tests/webtbs/tw1779.pp

@@ -0,0 +1,34 @@
+{ Source provided for Free Pascal Bug Report 1779 }
+{ Submitted by "Pierre" on  2002-01-25 }
+{ e-mail: pierre@freepascal.org }
+
+{$ifdef win32}
+uses
+  windows;
+
+function GetLargestConsoleWindowSizeAlternate(h : longint) : dword;
+  external 'kernel32' name 'GetLargestConsoleWindowSize';
+{$endif win32}
+
+var
+  c1,c : coord;
+  y : dword;
+begin
+{$ifdef win32}
+  longint(c):=GetStdHandle(STD_OUTPUT_HANDLE);
+  c1:=GetLargestConsoleWindowSize(GetStdHandle(STD_OUTPUT_HANDLE));
+  Writeln('Max window size is ',c1.x,'x',c1.y);
+  y:=GetLargestConsoleWindowSizeAlternate(GetStdHandle(STD_OUTPUT_HANDLE));
+  c.x := y and $ffff;
+  c.y:=  y shr 16;
+  Writeln('Max window size is ',c.x,'x',c.y);
+  if (c.x<>c1.X) or (c.Y<>c1.y) then
+    begin
+      Writeln('RTL bug');
+      Halt(1);
+    end;
+{$else not win32}
+  Writeln('Bug 1779 is win32 specific');
+{$endif win32}
+end.
+