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

* dub id fixed

Browse Source
This commit is contained in:
florian 2000-02-20 20:34:02 +00:00
parent 205d591332
commit c56118ccba
1 changed files with 35 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/win32/winsock.pp
View File

@ -214,15 +214,13 @@ unit winsock;
PInAddr = ^TInAddr; PInAddr = ^TInAddr;
sockaddr_in = record sockaddr_in = record
case integer of
0 : (
sin_family : u_short; sin_family : u_short;
sin_port : u_short; case integer of
0 : (sin_port : u_short;
sin_addr : TInAddr; sin_addr : TInAddr;
sin_zero : array[0..7] of char; sin_zero : array[0..7] of char;
); );
1 : (sin_family : u_short; 1 : (sin_data : array[0..13] of char;
sin_data : array[0..13] of char;
); );
end; end;
TSockAddrIn = sockaddr_in; TSockAddrIn = sockaddr_in;
@ -929,7 +927,10 @@ unit winsock;
end. end.
{ {
$Log$ $Log$
Revision 1.5 2000-02-09 16:59:35 peter Revision 1.6 2000-02-20 20:34:02 florian
* dub id fixed
Revision 1.5 2000/02/09 16:59:35 peter
* truncated log * truncated log
Revision 1.4 2000/01/07 16:41:53 daniel Revision 1.4 2000/01/07 16:41:53 daniel