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

+ Added TIn6Addr and TSockAddrIn6 to winsock2.pp

Browse Source 
git-svn-id: trunk@6452 -
This commit is contained in:
chrivers 2007-02-11 23:51:35 +00:00
parent cb0007eb24
commit e81696d0f1
1 changed files with 25 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/win/winsock2.pp
View File

@ -379,6 +379,18 @@ type
end; end;
in_addr = TInAddr; in_addr = TInAddr;
PIn6Addr = ^TIn6Addr;
TIn6Addr = record
case byte of
0: (u6_addr8 : array[0..15] of byte);
1: (u6_addr16 : array[0..7] of Word);
2: (u6_addr32 : array[0..3] of Cardinal);
3: (s6_addr8 : array[0..15] of shortint);
4: (s6_addr : array[0..15] of shortint);
5: (s6_addr16 : array[0..7] of smallint);
6: (s6_addr32 : array[0..3] of LongInt);
end;
PSockAddrIn = ^TSockAddrIn; PSockAddrIn = ^TSockAddrIn;
TSockAddrIn = record TSockAddrIn = record
case Integer of case Integer of
@ -391,6 +403,16 @@ type
end; end;
sockaddr_in = TSockAddrIn; sockaddr_in = TSockAddrIn;
PSockAddrIn6 = ^TSockAddrIn6;
TSockAddrIn6 = record
sin6_family : u_short;
sin6_port : u_short;
sin6_flowinfo : u_long;
sin6_addr : TIn6Addr;
sin6_scope_id : u_long;
end;
sockaddr_in6 = TSockAddrIn6;
{ Structure used by kernel to store most addresses. } { Structure used by kernel to store most addresses. }
PSockAddr = ^TSockAddr; PSockAddr = ^TSockAddr;