X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/842bb1621ab7617fe2f47da159d89ac513fbd6e2..ac55319310f2e0b8ac5d848c1591b5e72d49c9b3:/ltimevalstuff.pas diff --git a/ltimevalstuff.pas b/ltimevalstuff.pas index a6a3158..df0342c 100755 --- a/ltimevalstuff.pas +++ b/ltimevalstuff.pas @@ -5,39 +5,39 @@ unit ltimevalstuff; interface - -{$ifdef win32} - type - ttimeval = record - tv_sec : longint; - tv_usec : longint; - end; -{$else} - {$ifdef ver1_0} - uses linux; - {$else} - uses baseunix,unix,unixutil; - {$endif} -{$endif} - + +{$ifdef win32} + type + ttimeval = record + tv_sec : longint; + tv_usec : longint; + end; +{$else} + {$ifdef ver1_0} + uses linux; + {$else} + uses baseunix,unix,unixutil; + {$endif} +{$endif} + procedure tv_add(var tv:ttimeval;msec:integer); function tv_compare(const tv1,tv2:ttimeval):boolean; procedure tv_substract(var tv:ttimeval;const tv2:ttimeval); procedure msectotimeval(var tv:ttimeval;msec:integer); - + //tv_invalidtimebig will always compare as greater than any valid timeval -//unfortunately unixstuff.inc hasn't worked it's magic yet so we +//unfortunately unixstuff.inc hasn't worked it's magic yet so we //have to ifdef this manually. const - {$ifdef ver1_0} + {$ifdef ver1_0} tv_invalidtimebig : ttimeval = (sec:maxlongint;usec:maxlongint); - {$else} + {$else} tv_invalidtimebig : ttimeval = (tv_sec:maxlongint;tv_usec:maxlongint); - {$endif} + {$endif} implementation - -{$i unixstuff.inc} + +{$i unixstuff.inc} {add nn msec to tv} procedure tv_add(var tv:ttimeval;msec:integer);