paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 23:54:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* small fix for 1.0.x cycling

Browse Source
This commit is contained in:
marco 2004-07-03 22:48:49 +00:00
parent 9a23e896b3
commit 8dc79129e2
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/bsd/unxsysc.inc
View File

@ -26,7 +26,7 @@ var prio : cint;
begin
fpseterrno(0);
prio:=fpgetpriority(PRIO_PROCESS,0);
if (prio=-1) and (errno<>0) then
if (prio=-1) and (fpgeterrno<>0) then
exit(-1);
fpNice:=fpSetPriority(Prio_Process,0,prio+N);
end;
@ -118,7 +118,10 @@ end;
{
$Log$
Revision 1.5 2004-04-22 16:22:10 marco
Revision 1.6 2004-07-03 22:48:49 marco
* small fix for 1.0.x cycling
Revision 1.5 2004/04/22 16:22:10 marco
* fpnice fixes
Revision 1.4 2004/01/01 17:07:21 marco