From: plugwash Date: Sun, 1 Nov 2009 04:42:43 +0000 (+0000) Subject: fix line endings X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/ac55319310f2e0b8ac5d848c1591b5e72d49c9b3?ds=sidebyside fix line endings git-svn-id: file:///svnroot/lcore/trunk@59 b1de8a11-f9be-4011-bde0-cc7ace90066a --- diff --git a/dnsasync.pas b/dnsasync.pas index a8e1aa6..fab858d 100755 --- a/dnsasync.pas +++ b/dnsasync.pas @@ -100,14 +100,14 @@ var socketno : integer; begin for socketno := 0 to numsock -1 do begin - if assigned(sockets[socketno]) then begin + if assigned(sockets[socketno]) then begin if dnsserverids[socketno] >= 0 then begin reportlag(dnsserverids[socketno],-1); dnsserverids[socketno] := -1; end; sockets[socketno].release; setstate_request_init('',states[socketno]); - end; + end; end; inherited destroy; end; diff --git a/dnssync.pas b/dnssync.pas index d75f54e..a91d6f1 100755 --- a/dnssync.pas +++ b/dnssync.pas @@ -26,7 +26,7 @@ interface fd_utils, {$endif} lcorernd, - sysutils, + sysutils, ltimevalstuff; //convert a name to an IP diff --git a/lcoreselect.pas b/lcoreselect.pas index 3cee9bf..fea2058 100755 --- a/lcoreselect.pas +++ b/lcoreselect.pas @@ -40,7 +40,7 @@ uses {$ifndef nosignal} lsignal, {$endif} - ltimevalstuff; + ltimevalstuff; {$include unixstuff.inc} diff --git a/lmessages.pas b/lmessages.pas index b5a6f25..d7e4008 100755 --- a/lmessages.pas +++ b/lmessages.pas @@ -135,7 +135,7 @@ var //than crash after over four billion //windows have been made ;) nextwindowhandle : qword = $100000000; - + //findthreaddata should only be called while holding the structurelock function findthreaddata(threadid : integer) : tthreaddata; 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);