Jelajahi Sumber

* cvs log and extra endif

marco 21 tahun lalu
induk
melakukan
2f4ba80e7b
1 mengubah file dengan 24 tambahan dan 0 penghapusan
  1. 24 0
      rtl/unix/settimeo.inc

+ 24 - 0
rtl/unix/settimeo.inc

@@ -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
+
+}
+