paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 09:59:17 +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_Virtual =1;
ITimer_Prof =2; ITimer_Prof =2;
Function SetITimer(Which : Longint;Const value : ItimerVal; var VarOValue:ItimerVal):Longint;
Function SetITimer(Which : Longint;Const value : ItimerVal; VarOValue:ItimerVal):Longint;
Begin Begin
SetItimer:=Do_Syscall(syscall_nr_setitimer,Which,Longint(@Value),longint(@value)); SetItimer:=Do_Syscall(syscall_nr_setitimer,Which,Longint(@Value),longint(@varovalue));
End; End;
Function GetITimer(Which : Longint;Var value : ItimerVal):Longint; Function GetITimer(Which : Longint;Var value : ItimerVal):Longint;
Begin Begin
GetItimer:=Do_Syscall(syscall_nr_getItimer,Which,Longint(@value)); GetItimer:=Do_Syscall(syscall_nr_getItimer,Which,Longint(@value));
End; End;
Function sys_alarm(Seconds: cuint):cuint; Function sys_alarm(Seconds: cuint):cuint;
@ -132,6 +131,7 @@ begin
sigblock:= sys_sigprocmask(SIG_BLOCK,nset,oset); // SIG_BLOCK=1 sigblock:= sys_sigprocmask(SIG_BLOCK,nset,oset); // SIG_BLOCK=1
if sigblock=0 Then if sigblock=0 Then
sigblock:=oset[0]; sigblock:=oset[0];
el
end; end;
function sigpause(sigmask:cint):cint; function sigpause(sigmask:cint):cint;
@ -151,7 +151,6 @@ begin
sys_pause:=sigpause(sigblock(cuint(0))); sys_pause:=sigpause(sigblock(cuint(0)));
end; end;
function sys_sleep(seconds:cuint):cuint; function sys_sleep(seconds:cuint):cuint;
var time_to_sleep,time_remaining : timespec; var time_to_sleep,time_remaining : timespec;
@ -461,7 +460,10 @@ end;
{ {
$Log$ $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. * took out the generic sethandling.
Revision 1.9 2002/11/13 18:15:08 marco Revision 1.9 2002/11/13 18:15:08 marco