Browse Source

* fix record mismatch in cnetdb

git-svn-id: trunk@5456 -
Almindor 19 years ago
parent
commit
e36786454d
1 changed files with 4 additions and 2 deletions
  1. 4 2
      packages/base/netdb/cnetdb.pp

+ 4 - 2
packages/base/netdb/cnetdb.pp

@@ -62,6 +62,8 @@ unit cNetDB;
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
+{$packrecords C}
+
 interface
 interface
 
 
 uses
 uses
@@ -208,9 +210,9 @@ type
     ai_family: cInt;    {* PF_xxx *}
     ai_family: cInt;    {* PF_xxx *}
     ai_socktype: cInt;  {* SOCK_xxx *}
     ai_socktype: cInt;  {* SOCK_xxx *}
     ai_protocol: cInt;  {* 0 or IPPROTO_xxx for IPv4 and IPv6 *}
     ai_protocol: cInt;  {* 0 or IPPROTO_xxx for IPv4 and IPv6 *}
-    ai_addrlen: TSocklen;  {* length of ai_addr *}
-    ai_canonname: PChar;   {* canonical name for hostname *}
+    ai_addrlen: size_t;  {* length of ai_addr *}
     ai_addr: psockaddr;	   {* binary address *}
     ai_addr: psockaddr;	   {* binary address *}
+    ai_canonname: PChar;   {* canonical name for hostname *}
     ai_next: PAddrInfo;	   {* next structure in linked list *}
     ai_next: PAddrInfo;	   {* next structure in linked list *}
   end;
   end;
   TAddrInfo = addrinfo;
   TAddrInfo = addrinfo;