瀏覽代碼

* initial settimeofday

marco 21 年之前
父節點
當前提交
75019cf36a
共有 1 個文件被更改,包括 11 次插入2 次删除
  1. 11 2
      rtl/bsd/baseunix.pp

+ 11 - 2
rtl/bsd/baseunix.pp

@@ -57,6 +57,12 @@ property errno : cint read fpgeterrno write fpseterrno;
 
 {$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
 
 Uses Sysctl;
@@ -84,12 +90,15 @@ end;
 
 {$i bunxmain.inc}	{ implementation}
 {$i bunxovl.inc}	{ redefs and overloads implementation}
-
+{$i settimeo.inc}
 end.
 
 {
   $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.
 
   Revision 1.11  2004/11/14 12:21:08  marco