fpc/packages/base/libc/svtimesh.inc
2005-02-14 17:13:06 +00:00

33 lines
1014 B
PHP

const
VTIMES_UNITS_PER_SECOND = 60;
type
Pvtimes = ^_vtimes;
_vtimes = record
vm_utime : longint;
vm_stime : longint;
vm_idsrss : dword;
vm_ixrss : dword;
vm_maxrss : longint;
vm_majflt : longint;
vm_minflt : longint;
vm_nswap : longint;
vm_inblk : longint;
vm_oublk : longint;
end;
P_vtimes = ^_vtimes;
function vtimes(__current:Pvtimes; __child:Pvtimes):longint;cdecl;external clib name 'vtimes';
{ ---------------------------------------------------------------------
Borland compatibility types
---------------------------------------------------------------------}
Type
Tvtimes = _vtimes;
function vtimes(var __current: _vtimes; var __child: _vtimes):longint;cdecl;external clib name 'vtimes';
function vtimes(var __current: _vtimes; __child: pvtimes):longint;cdecl;external clib name 'vtimes';
function vtimes( __current: pvtimes; var __child: _vtimes):longint;cdecl;external clib name 'vtimes';