paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 18:29:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* moved a linux specific call to the implementation of system, where

Browse Source 
it is used. General Unix units should not expose Linux-specific 
   functionality.

git-svn-id: trunk@13427 -
This commit is contained in:
marco 2009-07-23 11:35:18 +00:00
parent 13c881c9ea
commit 7c52be9287
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/linux/system.pp
View File

@ -87,6 +87,10 @@ procedure haltproc(e:longint);cdecl;external name '_haltproc_eabi';
procedure haltproc(e:longint);cdecl;external name '_haltproc'; procedure haltproc(e:longint);cdecl;external name '_haltproc';
{$endif} {$endif}
{$ifdef FPC_USE_LIBC}
function FpPrCtl(options : cInt; const args : ptruint) : cint; cdecl; external clib name 'prctl';
{$endif}
procedure System_exit; procedure System_exit;
begin begin
haltproc(ExitCode); haltproc(ExitCode);

3
rtl/unix/oscdeclh.inc
View File

@ -156,6 +156,3 @@ const
Function FpPWrite (fd : cInt; buf:pChar; nbytes : TSize; offset:Toff): TSSize; cdecl; external clib name 'pwrite'+suffix64bit; 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'; 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}