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

* noadress and friend, ipv4 changed to an enum.

Browse Source
This commit is contained in:
marco 2005-02-18 13:10:10 +00:00
parent 5c923a0fbd
commit 83c90ab215
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/inc/socketsh.inc
View File

@ -74,9 +74,14 @@ const
Type Type
in_addr = packed record in_addr = packed record
s_addr : cuint32; // inaddr_t=cuint32 case boolean of
true: (s_addr : cuint32); // inaddr_t=cuint32
false: (s_bytes : packed array[1..4] of byte);
end; end;
TIn_addr = in_addr;
pin_addr = ^in_addr;
in_addrbytes = packed array [1..4] of byte; in_addrbytes = packed array [1..4] of byte;
TSockAddr = packed Record TSockAddr = packed Record
@ -218,9 +223,18 @@ function StrToHostAddr6(IP : String) : Tin6_addr; // not implemented?!?
function NetAddrToStr6 (Entry: Tin6_addr) : AnsiString; function NetAddrToStr6 (Entry: Tin6_addr) : AnsiString;
function StrToNetAddr6 (IP : AnsiString) : TIn6_Addr; function StrToNetAddr6 (IP : AnsiString) : TIn6_Addr;
CONST
NoAddress : in_addr = (s_addr:0);
NoNet : in_addr = (s_addr:0);
NoAddress6: Tin6_addr = (u6_addr16:(0,0,0,0,0,0,0,0));
NoNet6 : Tin6_addr = (u6_addr16:(0,0,0,0,0,0,0,0));
{ {
$Log$ $Log$
Revision 1.25 2005-02-14 17:13:26 peter Revision 1.26 2005-02-18 13:10:10 marco
* noadress and friend, ipv4 changed to an enum.
Revision 1.25 2005/02/14 17:13:26 peter
* truncate log * truncate log
Revision 1.24 2005/02/13 21:10:31 marco Revision 1.24 2005/02/13 21:10:31 marco