* libc fixes

rtl/bsd/sysctl.pp

@@ -83,9 +83,15 @@ TYPE    CtlNameRec = Record
 // 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 FPsysctlbyname (Name: pchar; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;
 function FPsysctlnametomib (Name: pchar; mibp:plongint;sizep:psize_t):cint;
+{$endif}
 
 Implementation
 
@@ -93,11 +99,7 @@ Implementation
 Uses Syscall;
 {$ENDIF}
 
-{$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}
+{$ifndef FPC_USE_LIBC}
 {$ifdef FreeBSD}
 CONST  syscall_nr___sysctl                    = 202;
 {$endif}
@@ -152,7 +154,10 @@ end.
 
 {
   $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.
 
   Revision 1.6  2003/12/30 12:26:21  marco