mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 09:06:14 +02:00
* fix for none-win32
This commit is contained in:
parent
acd254bd34
commit
067217877f
@ -10,11 +10,11 @@ function GetLargestConsoleWindowSizeAlternate(h : longint) : dword;
|
|||||||
external 'kernel32' name 'GetLargestConsoleWindowSize';
|
external 'kernel32' name 'GetLargestConsoleWindowSize';
|
||||||
{$endif win32}
|
{$endif win32}
|
||||||
|
|
||||||
|
{$ifdef win32}
|
||||||
var
|
var
|
||||||
c1,c : coord;
|
c1,c : coord;
|
||||||
y : dword;
|
y : dword;
|
||||||
begin
|
begin
|
||||||
{$ifdef win32}
|
|
||||||
longint(c):=GetStdHandle(STD_OUTPUT_HANDLE);
|
longint(c):=GetStdHandle(STD_OUTPUT_HANDLE);
|
||||||
c1:=GetLargestConsoleWindowSize(GetStdHandle(STD_OUTPUT_HANDLE));
|
c1:=GetLargestConsoleWindowSize(GetStdHandle(STD_OUTPUT_HANDLE));
|
||||||
Writeln('Max window size is ',c1.x,'x',c1.y);
|
Writeln('Max window size is ',c1.x,'x',c1.y);
|
||||||
@ -27,8 +27,9 @@ begin
|
|||||||
Writeln('RTL bug');
|
Writeln('RTL bug');
|
||||||
Halt(1);
|
Halt(1);
|
||||||
end;
|
end;
|
||||||
|
end.
|
||||||
{$else not win32}
|
{$else not win32}
|
||||||
|
begin
|
||||||
Writeln('Bug 1779 is win32 specific');
|
Writeln('Bug 1779 is win32 specific');
|
||||||
{$endif win32}
|
|
||||||
end.
|
end.
|
||||||
|
{$endif win32}
|
||||||
|
Loading…
Reference in New Issue
Block a user