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

* time routines extracted

Browse Source
This commit is contained in:
marco 2004-10-27 04:15:42 +00:00
parent 6cf4c07167
commit f1e1a829ce
1 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
rtl/unix/settimeo.inc Normal file
View File

@ -0,0 +1,34 @@
{$ifdef linux}
{$ifdef i386}
{$define usestime}
{$endif}
{$endif}
{$ifdef usestime}
{$ifdef FPC_USE_LIBC}
function stime (t:ptime_t):cint; external name 'stime';
{$else}
function stime (t:ptime_t):cint;
begin
stime:=do_SysCall(Syscall_nr_stime,TSysParam(t));
end;
{$endif}
function settimeofday(tp:ptimeval;tzp:ptimezone):cint;
begin
result:=stime(@tp^.tv_sec);
end;
{$else}
{$ifdef FPC_USE_LIBC}
function settimeofday(tp:ptimeval;tzp:ptimezone):cint; external clib name 'settimeofday';
{$else}
function settimeofday(tp:ptimeval;tzp:ptimezone):cint;
begin
settimeofday:=do_SysCall(Syscal_nr_settimeofday,TSysParam(@tp),tzp);
end;
{$endif}