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

* small typo fix from Mischi

Browse Source
This commit is contained in:
marco 2004-04-13 09:04:55 +00:00
parent c645ff1af9
commit eb5d730d99
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/base/inet/inet.pp
View File

@ -514,7 +514,7 @@ Function NetToHost (Net : Longint) : Longint;
begin
{$ifdef FPC_BIG_ENDIAN}
nettohost:=host;
nettohost:=net;
{$else}
NetToHost:=THostAddr(Net)[4];
NetToHost:=NetToHost or ( (THostAddr(Net)[3]) shl 8);
@ -539,7 +539,10 @@ end.
$Log$
Revision 1.4 2004-04-10 15:37:57 marco
Revision 1.5 2004-04-13 09:04:55 marco
* small typo fix from Mischi
Revision 1.4 2004/04/10 15:37:57 marco
* bug/endianfix to hosttonet nettohost
Revision 1.3 2003/12/10 12:16:14 marco