Description: Fix build with fpc 3.0
 Some deprecated field name aliases were removed in fpc 3.0. Update the code
 to use non-deprecated names.
Author: Peter Michael Green <plugwash@debian.org>
Bug-Debian: https://bugs.debian.org/813461

Index: cqrlog-1.9.0.new/src/lnet/lib/lcommon.pp
===================================================================
--- cqrlog-1.9.0.new.orig/src/lnet/lib/lcommon.pp
+++ cqrlog-1.9.0.new/src/lnet/lib/lcommon.pp
@@ -512,15 +512,15 @@ end;
 procedure FillAddressInfo(var aAddrInfo: TLSocketAddress; const aFamily: sa_family_t;
   const Address: string; const aPort: Word);
 begin
-  aAddrInfo.IPv4.family := aFamily;
-  aAddrInfo.IPv4.Port := htons(aPort);
+  aAddrInfo.IPv4.sin_family := aFamily;
+  aAddrInfo.IPv4.sin_port := htons(aPort);
 
   case aFamily of
     LAF_INET  :
       begin
-        aAddrInfo.IPv4.Addr := StrToNetAddr(Address);
-        if (Address <> LADDR_ANY) and (aAddrInfo.IPv4.Addr = 0) then
-          aAddrInfo.IPv4.Addr := StrToNetAddr(GetHostIP(Address));
+        aAddrInfo.IPv4.sin_addr.s_addr := StrToNetAddr(Address);
+        if (Address <> LADDR_ANY) and (aAddrInfo.IPv4.sin_addr.s_addr = 0) then
+          aAddrInfo.IPv4.sin_addr.s_addr := StrToNetAddr(GetHostIP(Address));
       end;
     LAF_INET6 :
       begin