paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 11:49:18 +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; Function TCSetAttr(fd:cint;OptAct:cint;const tios:TermIOS):cint;
var var
nr:cint; nr: TIoCtlRequest;
begin begin
case OptAct of case OptAct of
{the three constants TIOCSETA, TIOCSETAW and TIOCSETAF are {the three constants TIOCSETA, TIOCSETAW and TIOCSETAF are
unsigned values above $80000000, so that they give range check errors unsigned values above $80000000, so that they give range check errors
on 32-bit systems } on 32-bit systems
TCSANOW : nr:=cint(TIOCSETA); Solved by using TIoCtlRequest type for FpIOCtl second parameter }
TCSADRAIN : nr:=cint(TIOCSETAW); TCSANOW : nr:=TIOCSETA;
TCSAFLUSH : nr:=cint(TIOCSETAF); TCSADRAIN : nr:=TIOCSETAW;
TCSAFLUSH : nr:=TIOCSETAF;
else else
begin begin
fpsetErrNo(ESysEINVAL); fpsetErrNo(ESysEINVAL);