paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for none-win32

Browse Source
This commit is contained in:
peter 2002-09-16 15:42:05 +00:00
parent acd254bd34
commit 067217877f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/webtbs/tw1779.pp
View File

@ -10,11 +10,11 @@ function GetLargestConsoleWindowSizeAlternate(h : longint) : dword;
external 'kernel32' name 'GetLargestConsoleWindowSize';
{$endif win32}
{$ifdef 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);
@ -27,8 +27,9 @@ begin
Writeln('RTL bug');
Halt(1);
end;
end.
{$else not win32}
begin
Writeln('Bug 1779 is win32 specific');
{$endif win32}
end.
{$endif win32}