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

* initial settimeofday

Browse Source
This commit is contained in:
marco 2004-12-02 15:11:42 +00:00
parent 7869e4893c
commit 75019cf36a
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/bsd/baseunix.pp
View File

@ -57,6 +57,12 @@ property errno : cint read fpgeterrno write fpseterrno;
{$i bunxovlh.inc} {$i bunxovlh.inc}
{$ifdef FPC_USE_LIBC}
function settimeofday(tp:ptimeval;tzp:ptimezone):cint; cdecl; external clib name 'settimeofday';
{$else}
function settimeofday(tp:ptimeval;tzp:ptimezone):cint;
{$endif}
implementation implementation
Uses Sysctl; Uses Sysctl;
@ -84,12 +90,15 @@ end;
{$i bunxmain.inc} { implementation} {$i bunxmain.inc} { implementation}
{$i bunxovl.inc} { redefs and overloads implementation} {$i bunxovl.inc} { redefs and overloads implementation}
{$i settimeo.inc}
end. end.
{ {
$Log$ $Log$
Revision 1.12 2004-11-19 13:15:14 marco Revision 1.13 2004-12-02 15:11:42 marco
* initial settimeofday
Revision 1.12 2004/11/19 13:15:14 marco
* external rework. Mostly done. * external rework. Mostly done.
Revision 1.11 2004/11/14 12:21:08 marco Revision 1.11 2004/11/14 12:21:08 marco