X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/b75c4f1cb9e048c35d3242cece45de07eb43282e..b3b93191002f92b19c069b9815a8261d6edbc5ec:/binipstuff.pas

diff --git a/binipstuff.pas b/binipstuff.pas
index 7c6fc89..0b9fcb8 100644
--- a/binipstuff.pas
+++ b/binipstuff.pas
@@ -4,19 +4,22 @@
   ----------------------------------------------------------------------------- }
 unit binipstuff;
 
+{$ifdef fpc}
+{$mode delphi}
+{$endif}
+
 interface
 
 {$include lcoreconfig.inc}
 
+uses
 {$ifndef win32}
-uses sockets;
+  sockets,
 {$endif}
+  pgtypes;
 
-{$ifdef fpc}
-  {$mode delphi}
-{$endif}
-{$ifdef cpu386}{$define i386}{$endif}
-{$ifdef i386}{$define ENDIAN_LITTLE}{$endif}
+
+{$include pgtypes.inc}
 
 {$include uint32.inc}
 
@@ -382,6 +385,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 + ':';