mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-13 06:49:08 +02:00
Add explicit typecast to avoid range ccheck error
git-svn-id: trunk@40002 -
This commit is contained in:
parent
378e1dfaa4
commit
044c835197
@ -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;
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user