From ee62c0d008ff4a83ab86597030637636c2fa5d13 Mon Sep 17 00:00:00 2001 From: beware Date: Fri, 26 Feb 2010 03:43:23 +0000 Subject: [PATCH] ip6bintostr run length atleast 2 0 words git-svn-id: file:///svnroot/lcore/trunk@85 b1de8a11-f9be-4011-bde0-cc7ace90066a --- binipstuff.pas | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/binipstuff.pas b/binipstuff.pas index 94a0c03..1f5fed4 100644 --- a/binipstuff.pas +++ b/binipstuff.pas @@ -384,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 + ':'; -- 2.30.2