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

* sendto overload added

Browse Source
This commit is contained in:
peter 2002-12-25 01:04:03 +00:00
parent 8512f6a06a
commit 60c55580c7
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/win32/winsock.pp
View File

@ -233,17 +233,18 @@ unit winsock;
PInAddr = ^TInAddr;
sockaddr_in = record
sin_family : SmallInt; (* 2 byte *)
case integer of
0 : ( (* equals to sockaddr_in, size is 16 byte *)
sin_family : SmallInt; (* 2 byte *)
sin_port : u_short; (* 2 byte *)
sin_addr : TInAddr; (* 4 byte *)
sin_zero : array[0..8-1] of char; (* 8 byte *)
);
1 : ( (* equals to sockaddr, size is 16 byte *)
sin_data : array[0..14-1] of char; (* 14 byte *)
1 : ((* equals to sockaddr, size is 16 byte *)
sa_family : Smallint; (* 2 byte *)
sa_data : array[0..14-1] of char; (* 14 byte *)
);
end;
end;
TSockAddrIn = sockaddr_in;
PSockAddrIn = ^TSockAddrIn;
TSockAddr = sockaddr_in;
@ -885,7 +886,10 @@ unit winsock;
end.
{
$Log$
Revision 1.10 2002-09-07 21:28:10 carl
Revision 1.11 2002-12-25 01:04:03 peter
* sendto overload added
Revision 1.10 2002/09/07 21:28:10 carl
- removed os_types
* fix range check errors