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

* fixes sysctl also with 3.0.4 as starting compiler.

Browse Source 
M    rtl/bsd/sysctl.pp
M    compiler/systems.pas

git-svn-id: trunk@38250 -
This commit is contained in:
marco 2018-02-16 17:58:20 +00:00
parent 81044b4cff
commit 14b14f3bda
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/systems.pas
View File

@ -472,7 +472,7 @@ function GetOSRelDate:Longint;
both old 3.0.X definition and new definition using pcint type.
Problem solved using a special type called
FPSysCtlFirstArgType. }
{$ifdef VER3_0}
{$if defined(VER3_0_0) or defined(VER3_0_2)}
type
FPSysCtlFirstArgType = PChar;
{$else}

2
rtl/bsd/sysctl.pp
View File

@ -109,7 +109,7 @@ Uses Syscall;
CONST syscall_nr___sysctl = 202;
{$endif}
{$ifdef ver3_0}
{$if defined(VER3_0_0) or defined(VER3_0_2)}
function FPsysctl (Name: pchar; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;
{$else}
function FPsysctl (Name: pcint; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;