@@ -87,6 +87,10 @@ procedure haltproc(e:longint);cdecl;external name '_haltproc_eabi';
procedure haltproc(e:longint);cdecl;external name '_haltproc';
{$endif}
+{$ifdef FPC_USE_LIBC}
+function FpPrCtl(options : cInt; const args : ptruint) : cint; cdecl; external clib name 'prctl';
+{$endif}
+
procedure System_exit;
begin
haltproc(ExitCode);
@@ -156,6 +156,3 @@ const
Function FpPWrite (fd : cInt; buf:pChar; nbytes : TSize; offset:Toff): TSSize; cdecl; external clib name 'pwrite'+suffix64bit;
function FpWriteV (fd: cint; const iov : piovec; iovcnt : cint):TSSize; cdecl; external clib name 'writev';
-{$ifdef linux}
- function FpPrCtl(options : cInt; const args : ptruint) : cint; cdecl; external clib name 'prctl';
-{$endif}