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

* cvs log and extra endif

Browse Source
This commit is contained in:
marco 2004-10-27 04:22:04 +00:00
parent f1e1a829ce
commit 2f4ba80e7b
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/unix/settimeo.inc
View File

@ -1,3 +1,17 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 2004 by Michael Van Canneyt,
member of the Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY;without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$ifdef linux}
{$ifdef i386}
@ -21,6 +35,7 @@ function settimeofday(tp:ptimeval;tzp:ptimezone):cint;
begin
result:=stime(@tp^.tv_sec);
end;
{$else}
{$ifdef FPC_USE_LIBC}
@ -31,4 +46,13 @@ function settimeofday(tp:ptimeval;tzp:ptimezone):cint;
begin
settimeofday:=do_SysCall(Syscal_nr_settimeofday,TSysParam(@tp),tzp);
end;
{$endof}
{$endif}
{
$Log$
Revision 1.2 2004-10-27 04:22:04 marco
* cvs log and extra endif
}