Pastebin

procedure XThreadSleep(const Milliseconds: XUInt); xcc;
var
  t: timespec;
begin
  t.tv_sec := Milliseconds div 1000;
  t.tv_nsec := (Milliseconds mod 1000) * 1000 * 1000;
  t.tv_sec := 0;
  writeln('#####', t.tv_sec, '#######', t.tv_nsec);
  fpnanosleep(@t, @t);
end;