mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-09 12:58:32 +02:00
* Linuxerror remove + hdr+log added
This commit is contained in:
parent
616b7d2a1c
commit
fbf1a7206b
@ -1,3 +1,18 @@
|
|||||||
|
{
|
||||||
|
$Id$
|
||||||
|
This file is part of the Free Pascal run time library.
|
||||||
|
Copyright (c) 2001 by Free Pascal development team
|
||||||
|
|
||||||
|
Some calls for the unix unit.
|
||||||
|
|
||||||
|
See the file COPYING.FPC, included in this distribution,
|
||||||
|
for details about the copyright.
|
||||||
|
|
||||||
|
This program is distributed in the hope that it will be useful,
|
||||||
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||||
|
|
||||||
|
***********************************************************************}
|
||||||
|
|
||||||
function fpNice(N:cint):cint;
|
function fpNice(N:cint):cint;
|
||||||
{
|
{
|
||||||
@ -29,13 +44,11 @@ begin
|
|||||||
if (which<prio_process) or (which>prio_user) then
|
if (which<prio_process) or (which>prio_user) then
|
||||||
begin
|
begin
|
||||||
{ We can save an interrupt here }
|
{ We can save an interrupt here }
|
||||||
fpgetpriority:=0;
|
fpgetpriority:=-1;
|
||||||
linuxerror:=ESysEinval;
|
fpsetErrno(ESysEinval);
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
begin
|
|
||||||
fpGetPriority:=do_syscall(syscall_nr_GetPriority,which,who);
|
fpGetPriority:=do_syscall(syscall_nr_GetPriority,which,who);
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
Function fpSetPriority(Which,Who,What:cint):cint;
|
Function fpSetPriority(Which,Who,What:cint):cint;
|
||||||
@ -116,3 +129,11 @@ begin
|
|||||||
else
|
else
|
||||||
fpReadLink:='';
|
fpReadLink:='';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{
|
||||||
|
$Log$
|
||||||
|
Revision 1.3 2003-11-13 13:11:55 marco
|
||||||
|
* Linuxerror remove + hdr+log added
|
||||||
|
|
||||||
|
|
||||||
|
}
|
Loading…
Reference in New Issue
Block a user