Add explicit typecast to avoid range ccheck error

git-svn-id: trunk@40002 -
This commit is contained in:
pierre 2018-10-20 22:30:20 +00:00
parent 378e1dfaa4
commit 044c835197

View File

@ -68,7 +68,7 @@ end;
Function TCSetPGrp(fd,id:cint):cint; inline;
begin
TCSetPGrp:=fpIOCtl(fd,TIOCSPGRP,pointer(ptrint(id)));
TCSetPGrp:=fpIOCtl(fd,TIOCtlRequest(TIOCSPGRP),pointer(ptrint(id)));
end;