/[lcore]/trunk/dnssync.pas
ViewVC logotype

Diff of /trunk/dnssync.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 156 by beware, Fri Mar 28 03:18:52 2014 UTC revision 157 by beware, Fri Aug 13 03:52:55 2021 UTC
# Line 94  Line 94 
94  var  var
95    temp:ttimeval;    temp:ttimeval;
96  begin  begin
97    gettimeofday(temp);    gettimemonotonic(temp);
98    result := ((temp.tv_usec div 1000) + (temp.tv_sec * 1000)) and tsmask;    result := ((temp.tv_usec div 1000) + (temp.tv_sec * 1000)) and tsmask;
99  {$endif}  {$endif}
100  end;  end;
# Line 256  Line 256 
256        selecttimeout.tv_sec := 0;        selecttimeout.tv_sec := 0;
257        selecttimeout.tv_usec := retryafter;        selecttimeout.tv_usec := retryafter;
258      end;      end;
259      //find the highest of the used fd's      //find the highest of the used fds
260      b := 0;      b := 0;
261      for socknum := numsockused-1 downto 0 do if fd[socknum] > b then b := fd[socknum];      for socknum := numsockused-1 downto 0 do if fd[socknum] > b then b := fd[socknum];
262      selectresult := select(b+1,@fds,nil,nil,@selecttimeout);      selectresult := select(b+1,@fds,nil,nil,@selecttimeout);

Legend:
Removed from v.156  
changed lines
  Added in v.157

No admin address has been configured">No admin address has been configured
ViewVC Help
Powered by ViewVC 1.1.26