paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 12:30:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix compilation after commit 35566: change sysctl name parameter type to pcint

Browse Source 
git-svn-id: trunk@35573 -
This commit is contained in:
pierre 2017-03-12 21:00:41 +00:00
parent ad557a1da6
commit 7853c23a0e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/bsd/sysctl.pp
View File

@ -104,7 +104,7 @@ CONST syscall_nr___sysctl = 202;
function FPsysctl (Name: pcint; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint; function FPsysctl (Name: pcint; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;
Begin Begin
if (name[0] <> chr(CTL_USER)) Then if (name[0] <> CTL_USER) Then
exit(do_syscall(syscall_nr___sysctl,TSysParam(name), namelen, TSysParam(oldp), TSysParam(oldlenp), TSysParam(newp), TSysParam(newlen))) exit(do_syscall(syscall_nr___sysctl,TSysParam(name), namelen, TSysParam(oldp), TSysParam(oldlenp), TSysParam(newp), TSysParam(newlen)))
else else
Exit(0); Exit(0);