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

Fix FreeBSD cycle starting for release compiler after FPSysCtl interface change

Browse Source 
git-svn-id: trunk@35575 -
This commit is contained in:
pierre 2017-03-13 21:33:09 +00:00
parent 9fbb92a48d
commit 9fc17dc9e9
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/systems.pas
View File

@ -459,6 +459,21 @@ implementation
{$ifdef FreeBSD} {$ifdef FreeBSD}
function GetOSRelDate:Longint; function GetOSRelDate:Longint;
{ FPSysCtl first argument was of type pchar
up to commit 35566 from 2017/03/11
and corrected to pcint in that commit.
But the following code needs to work with
both old 3.0.X definition and new definition using pcint type.
Problem solved using a special type called
FPSysCtlFirstArgType. }
{$ifdef VER3_0}
type
FPSysCtlFirstArgType = PChar;
{$else}
type
FPSysCtlFirstArgType = pcint;
{$endif}
var var
mib : array[0..1] of cint; mib : array[0..1] of cint;
rval : cint; rval : cint;
@ -475,7 +490,7 @@ Begin
mib[1] := KERN_OSRELDATE; mib[1] := KERN_OSRELDATE;
len := 4; len := 4;
oerrno:= fpgeterrno; oerrno:= fpgeterrno;
if (FPsysctl(pChar(@mib), 2, pchar(@v), @len, NIL, 0) = -1) Then if (FPsysctl(FPSysCtlFirstArgType(@mib), 2, pchar(@v), @len, NIL, 0) = -1) Then
Begin Begin
if (fpgeterrno = ESysENOMEM) Then if (fpgeterrno = ESysENOMEM) Then
fpseterrno(oerrno); fpseterrno(oerrno);