mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 17:49:33 +02:00
29 lines
514 B
ObjectPascal
29 lines
514 B
ObjectPascal
{ %target=linux,freebsd,haiku }
|
|
|
|
{ Source provided for Free Pascal Bug Report 3257 }
|
|
{ Submitted by "peter green" on 2004-08-18 }
|
|
{ e-mail: plugwash@p10link.net }
|
|
unit tw3257;
|
|
|
|
{$mode delphi}
|
|
{$inline on}
|
|
|
|
interface
|
|
|
|
implementation
|
|
uses
|
|
baseunix,unix,sysutils;
|
|
|
|
procedure gettimeofday(var tv:ttimeval);inline;
|
|
begin
|
|
fpgettimeofday(@tv,nil);
|
|
end;
|
|
function gettimeofdaysec : longint;inline;
|
|
var
|
|
tv:ttimeval;
|
|
begin
|
|
gettimeofday(tv);
|
|
result := tv.tv_sec;
|
|
end;
|
|
end.
|