paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 12:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix record mismatch in cnetdb

Browse Source 
git-svn-id: trunk@5456 -
This commit is contained in:
Almindor 2006-11-22 23:01:55 +00:00
parent 877a111b95
commit e36786454d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/base/netdb/cnetdb.pp
View File

@ -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_addrlen: size_t; {* length of ai_addr *}
ai_canonname: PChar; {* canonical name for hostname *}
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;