X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/9036dab6e8ad5001d2354bb378096f957f8cabd6..055fa6bf18e0733d1bf2f97075d6bb33c76e72b5:/binipstuff.pas diff --git a/binipstuff.pas b/binipstuff.pas old mode 100755 new mode 100644 index 078e761..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; @@ -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