X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/e27ef2c6aab3a2a8051314bd37bb3b2386775f36..555c3c210bd8d681d3b485023926e55b8866eb79:/binipstuff.pas?ds=sidebyside diff --git a/binipstuff.pas b/binipstuff.pas index ae3d23a..1f5fed4 100644 --- a/binipstuff.pas +++ b/binipstuff.pas @@ -9,7 +9,9 @@ interface {$include lcoreconfig.inc} uses - {$ifndef win32}{$ifdef ipv6}sockets,{$endif}{$endif} +{$ifndef win32} + sockets, +{$endif} pgtypes; {$ifdef fpc} @@ -382,6 +384,13 @@ begin end; end; end; + + {run length atleast 2 0 words} + if (runlength = 1) then begin + runlength := 0; + runbegin := 0; + end; + result := ''; for a := 0 to runbegin-1 do begin if (a <> 0) then result := result + ':';