summaryrefslogtreecommitdiff
path: root/fpcsrc/packages/libogcfpc/src/ogcsys.inc
blob: bed5ddc433227cdc0215cb9f43b0e6fdaf04691a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
{$ifdef OGC_INTERFACE}

{$ifdef HW_RVL}
const
  TB_BUS_CLOCK: cuint = 243000000;
  TB_CORE_CLOCK: cuint = 729000000;
{$else}
{$ifdef HW_DOL}
const
  TB_BUS_CLOCK: cuint = 162000000;
  TB_CORE_CLOCK: cuint = 486000000;
{$else}
{$endif}
{$endif}

const
  TB_TIMER_CLOCK = 40500;//(TB_BUS_CLOCK div 4000);

  TB_MSPERSEC  = 1000;
  TB_USPERSEC  = 1000000;
  TB_NSPERSEC  = 1000000000;
  TB_NSPERMS   = 1000000;
  TB_NSPERUS   = 1000;
  TB_USPERTICK = 10000;

  TB_SECSPERMIN = 60;
  TB_MINSPERHR  = 60;
  TB_MONSPERYR  = 12;
  TB_DAYSPERYR  = 365;
  TB_HRSPERDAY  = 24;
  TB_SECSPERDAY = (TB_SECSPERMIN * TB_MINSPERHR * TB_HRSPERDAY);
  TB_SECSPERNYR = (365 * TB_SECSPERDAY);

function time(timer: ptime_t): time_t; cdecl; external;
function nanosleep(tb: ptimespec): cint; cdecl; external;

{$endif OGC_INTERFACE}