paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix setitimer.

Browse Source
This commit is contained in:
marco 2002-11-14 13:25:27 +00:00
parent 4b2838b161
commit 12e9c34aac
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/bsd/bsdfuncs.inc
View File

@ -89,17 +89,16 @@ Const ITimer_Real =0;
ITimer_Virtual =1;
ITimer_Prof =2;
Function SetITimer(Which : Longint;Const value : ItimerVal; VarOValue:ItimerVal):Longint;
Function SetITimer(Which : Longint;Const value : ItimerVal; var VarOValue:ItimerVal):Longint;
Begin
SetItimer:=Do_Syscall(syscall_nr_setitimer,Which,Longint(@Value),longint(@value));
SetItimer:=Do_Syscall(syscall_nr_setitimer,Which,Longint(@Value),longint(@varovalue));
End;
Function GetITimer(Which : Longint;Var value : ItimerVal):Longint;
Begin
GetItimer:=Do_Syscall(syscall_nr_getItimer,Which,Longint(@value));
GetItimer:=Do_Syscall(syscall_nr_getItimer,Which,Longint(@value));
End;
Function sys_alarm(Seconds: cuint):cuint;
@ -132,6 +131,7 @@ begin
sigblock:= sys_sigprocmask(SIG_BLOCK,nset,oset); // SIG_BLOCK=1
if sigblock=0 Then
sigblock:=oset[0];
el
end;
function sigpause(sigmask:cint):cint;
@ -151,7 +151,6 @@ begin
sys_pause:=sigpause(sigblock(cuint(0)));
end;
function sys_sleep(seconds:cuint):cuint;
var time_to_sleep,time_remaining : timespec;
@ -461,7 +460,10 @@ end;
{
$Log$
Revision 1.10 2002-11-14 12:34:20 marco
Revision 1.11 2002-11-14 13:25:27 marco
* Fix setitimer.
Revision 1.10 2002/11/14 12:34:20 marco
* took out the generic sethandling.
Revision 1.9 2002/11/13 18:15:08 marco