paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 14:27:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation error for 1.0 compiler

Browse Source
This commit is contained in:
pierre 2004-02-25 01:38:26 +00:00
parent 51c1526296
commit 40d5c5ede4
2 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fv/unixsmsg.inc
View File

@ -49,7 +49,11 @@ begin
PendingSystemEvents:=0;
FillChar(LastSystemEvent,sizeof(TSystemEvent),0);
FillChar(WinSize,sizeof(WinSize),0);
{$ifdef VER1_0}
ioctl(stdinputhandle,TIOCGWINSZ,@winsize);
{$else}
fpioctl(stdinputhandle,TIOCGWINSZ,@winsize);
{$endif}
LastXSize:=WinSize.ws_row;
LastYSize:=WinSize.ws_col;
If LastXSize=0 then
@ -100,7 +104,11 @@ begin
else
begin
FillChar(WinSize,sizeof(WinSize),0);
{$ifdef VER1_0}
ioctl(stdinputhandle,TIOCGWINSZ,@winsize);
{$else}
fpioctl(stdinputhandle,TIOCGWINSZ,@winsize);
{$endif}
if (winsize.ws_col<>0) and (winsize.ws_row<>0) and
((winsize.ws_row<>lastxsize) or (winsize.ws_col<>lastysize)) then
begin
@ -119,7 +127,10 @@ end;
{
$Log$
Revision 1.6 2003-11-19 21:58:51 marco
Revision 1.7 2004-02-25 01:38:26 pierre
* fix compilation error for 1.0 compiler
Revision 1.6 2003/11/19 21:58:51 marco
* typo
Revision 1.5 2003/11/19 19:22:14 marco

13
fvision/unixsmsg.inc
View File

@ -49,7 +49,11 @@ begin
PendingSystemEvents:=0;
FillChar(LastSystemEvent,sizeof(TSystemEvent),0);
FillChar(WinSize,sizeof(WinSize),0);
{$ifdef VER1_0}
ioctl(stdinputhandle,TIOCGWINSZ,@winsize);
{$else}
fpioctl(stdinputhandle,TIOCGWINSZ,@winsize);
{$endif}
LastXSize:=WinSize.ws_row;
LastYSize:=WinSize.ws_col;
If LastXSize=0 then
@ -100,7 +104,11 @@ begin
else
begin
FillChar(WinSize,sizeof(WinSize),0);
{$ifdef VER1_0}
ioctl(stdinputhandle,TIOCGWINSZ,@winsize);
{$else}
fpioctl(stdinputhandle,TIOCGWINSZ,@winsize);
{$endif}
if (winsize.ws_col<>0) and (winsize.ws_row<>0) and
((winsize.ws_row<>lastxsize) or (winsize.ws_col<>lastysize)) then
begin
@ -119,7 +127,10 @@ end;
{
$Log$
Revision 1.6 2003-11-19 21:58:51 marco
Revision 1.7 2004-02-25 01:38:26 pierre
* fix compilation error for 1.0 compiler
Revision 1.6 2003/11/19 21:58:51 marco
* typo
Revision 1.5 2003/11/19 19:22:14 marco