paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 15:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Suppress console messages about sign extension in ioctl system call

Browse Source 
git-svn-id: trunk@19241 -
This commit is contained in:
pierre 2011-09-26 10:24:00 +00:00
parent 5560f6b3f2
commit 23a8fb1754
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/freebsd/termiosproc.inc
View File

@ -26,15 +26,16 @@ end;
Function TCSetAttr(fd:cint;OptAct:cint;const tios:TermIOS):cint;
var
nr:cint;
nr: TIoCtlRequest;
begin
case OptAct of
{the three constants TIOCSETA, TIOCSETAW and TIOCSETAF are
unsigned values above $80000000, so that they give range check errors
on 32-bit systems }
TCSANOW : nr:=cint(TIOCSETA);
TCSADRAIN : nr:=cint(TIOCSETAW);
TCSAFLUSH : nr:=cint(TIOCSETAF);
on 32-bit systems
Solved by using TIoCtlRequest type for FpIOCtl second parameter }
TCSANOW : nr:=TIOCSETA;
TCSADRAIN : nr:=TIOCSETAW;
TCSAFLUSH : nr:=TIOCSETAF;
else
begin
fpsetErrNo(ESysEINVAL);