paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 02:59:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* libc fixes

Browse Source
This commit is contained in:
marco 2004-11-21 17:49:28 +00:00
parent 18f7aa97dd
commit c8335a9d75
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/bsd/sysctl.pp
View File

@ -83,9 +83,15 @@ TYPE CtlNameRec = Record
// function is not implemented // function is not implemented
// //
{$ifdef FPC_USE_LIBC}
function FPsysctl (Name: pchar; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint; external name 'sysctl';
function FPsysctlbyname (Name: pchar; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint; external name 'sysctlbyname';
function FPsysctlnametomib (Name: pchar;mibp:plongint;sizep:psize_t):cint; external name 'sysctltomib';
{$else}
function FPsysctl (Name: pchar; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint; function FPsysctl (Name: pchar; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;
function FPsysctlbyname (Name: pchar; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint; function FPsysctlbyname (Name: pchar; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;
function FPsysctlnametomib (Name: pchar; mibp:plongint;sizep:psize_t):cint; function FPsysctlnametomib (Name: pchar; mibp:plongint;sizep:psize_t):cint;
{$endif}
Implementation Implementation
@ -93,11 +99,7 @@ Implementation
Uses Syscall; Uses Syscall;
{$ENDIF} {$ENDIF}
{$ifdef FPC_USE_LIBC} {$ifndef FPC_USE_LIBC}
function FPsysctl (Name: pchar; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint; external name 'sysctl';
function FPsysctlbyname (Name: pchar; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint; external name 'sysctlbyname';
function FPsysctlnametomib (Name: pchar;mibp:plongint;sizep:psize_t):cint; external name 'sysctltomib';
{$else}
{$ifdef FreeBSD} {$ifdef FreeBSD}
CONST syscall_nr___sysctl = 202; CONST syscall_nr___sysctl = 202;
{$endif} {$endif}
@ -152,7 +154,10 @@ end.
{ {
$Log$ $Log$
Revision 1.7 2004-03-04 22:15:16 marco Revision 1.8 2004-11-21 17:49:28 marco
* libc fixes
Revision 1.7 2004/03/04 22:15:16 marco
* UnixType changes. Please report problems to me. * UnixType changes. Please report problems to me.
Revision 1.6 2003/12/30 12:26:21 marco Revision 1.6 2003/12/30 12:26:21 marco