paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 21:19:31 +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}
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
mib : array[0..1] of cint;
rval : cint;
@ -475,7 +490,7 @@ Begin
mib[1] := KERN_OSRELDATE;
len := 4;
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
if (fpgeterrno = ESysENOMEM) Then
fpseterrno(oerrno);