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

* Added clock_getres, clock_gettime, clock_settime calls

Browse Source 
git-svn-id: trunk@19789 -
This commit is contained in:
michael 2011-12-09 16:30:23 +00:00
parent 2d7dbacee0
commit 0bdccfa2b0
1 changed files with 43 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
rtl/linux/linux.pp
View File

@ -420,6 +420,31 @@ function inotify_add_watch(fd:cint; name:Pchar; mask:cuint32):cint;
{ Remove the watch specified by WD from the inotify instance FD. }
function inotify_rm_watch(fd:cint; wd: cint):cint;
{ clock_gettime, clock_settime, clock_getres }
Const
// Taken from linux/time.h
// Posix timers
CLOCK_REALTIME = 0;
CLOCK_MONOTONIC = 1;
CLOCK_PROCESS_CPUTIME_ID = 2;
CLOCK_THREAD_CPUTIME_ID = 3;
CLOCK_MONOTONIC_RAW = 4;
CLOCK_REALTIME_COARSE = 5;
CLOCK_MONOTONIC_COARSE = 6;
// Linux specific
CLOCK_SGI_CYCLE = 10;
MAX_CLOCKS = 16;
CLOCKS_MASK = CLOCK_REALTIME or CLOCK_MONOTONIC;
CLOCKS_MONO = CLOCK_MONOTONIC;
Type
clockid_t = cint;
function clock_getres(clk_id : clockid_t; res : ptimespec) : cint;
function clock_gettime(clk_id : clockid_t; tp: ptimespec) : cint;
function clock_settime(clk_id : clockid_t; tp : ptimespec) : cint;
implementation
@ -669,4 +694,22 @@ begin
inotify_rm_watch:=do_SysCall(syscall_nr_inotify_rm_watch,tsysparam(fd),tsysparam(wd));
end;
function clock_getres(clk_id : clockid_t; res : ptimespec) : cint;
begin
clock_getres:=do_SysCall(syscall_nr_clock_getres,tsysparam(clk_id),tsysparam(res));
end;
function clock_gettime(clk_id : clockid_t; tp: ptimespec) : cint;
begin
clock_gettime:=do_SysCall(syscall_nr_clock_gettime,tsysparam(clk_id),tsysparam(tp));
end;
function clock_settime(clk_id : clockid_t; tp : ptimespec) : cint;
begin
clock_settime:=do_SysCall(syscall_nr_clock_settime,tsysparam(clk_id),tsysparam(tp));
end;
end.