X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/987e8123d8ba3201ed2690004cfefd7983ff7487..055fa6bf18e0733d1bf2f97075d6bb33c76e72b5:/binipstuff.pas?ds=inline diff --git a/binipstuff.pas b/binipstuff.pas old mode 100755 new mode 100644 index 8411cd3..675b03e --- a/binipstuff.pas +++ b/binipstuff.pas @@ -91,7 +91,8 @@ type cuint16=word; cuint32=dword; sa_family_t=word; - TInetSockAddr6 = packed record + + TInetSockAddr6 = packed record sin6_family: word; sin6_port: word; sin6_flowinfo: uint32; @@ -323,7 +324,7 @@ end; { IPv6 address binary to/from string conversion routines -written by beware (steendijk at xs4all dot nl) +written by beware - implementation does not depend on other ipv6 code such as the tin6_addr type, the parameter can also be untyped. @@ -541,7 +542,8 @@ const //fpc 1.0.x doesn't seem to like use of length function in a constant //definition //biniplist_prefixlen=length(biniplist_prefix); - biniplist_prefixlen=5; + + biniplist_prefixlen=5; function biniplist_new:tbiniplist; begin