TimeElapsed_us bug

[pierpa68]

Hi,
testing your great lib, I think to have discovered a bug in that function: the line
ok:=(ptspec^.tv_nsec<=tv_now.tv_nsec);
should be
ok:=(ptspec^.tv_nsec<=tv_now.tv_nsec) and (ptspec^.tv_sec<=tv_now.tv_sec);

Regards

[rudiratlos]

Thankx, will change it in next release

[rudiratlos]

just uploaded V5.2 which takes care about it

[rudiratlos]

use this:

function TimeElapsed_ns(ptspec:Ptimespec; Retrig_ns:int64):boolean;
var ok:boolean; tv_now:timespec;
begin
clock_gettime(CLOCK_REALTIME,@tv_now);
if (ptspec^.tv_sec = tv_now.tv_sec)
then ok:=(ptspec^.tv_nsec <= tv_now.tv_nsec)
else ok:=(ptspec^.tv_sec < tv_now.tv_sec);
if (ok and (Retrig_ns>0)) then SetTimeOut_ns(@tv_now,ptspec,Retrig_ns);
TimeElapsed_ns:=ok;
end;