Sfoglia il codice sorgente

* fixes sysctl also with 3.0.4 as starting compiler.
M rtl/bsd/sysctl.pp
M compiler/systems.pas

git-svn-id: trunk@38250 -

marco 7 anni fa
parent
commit
14b14f3bda
2 ha cambiato i file con 2 aggiunte e 2 eliminazioni
  1. 1 1
      compiler/systems.pas
  2. 1 1
      rtl/bsd/sysctl.pp

+ 1 - 1
compiler/systems.pas

@@ -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}

+ 1 - 1
rtl/bsd/sysctl.pp

@@ -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;