fpcsrc/packages/libc/src/stimebh.inc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19


type
   Ptimeb = ^timeb;
   timeb = record
     time : time_t;
     millitm : word;
     timezone : smallint;
     dstflag : smallint;
   end;


function ftime(__timebuf:Ptimeb):longint;cdecl;external clib name 'ftime';

{ ---------------------------------------------------------------------
    Borland compatibility types
  ---------------------------------------------------------------------}

// Type
function ftime(var __timebuf:timeb):longint;cdecl;external clib name 'ftime';