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

* more endian fixes

Browse Source
This commit is contained in:
marco 2004-11-01 21:01:29 +00:00
parent 041dfe7b99
commit 2d0788e39f
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -526,20 +526,31 @@ end;
Function ShortHostToNet (Host : Word) : Word;
begin
ShortHostToNet:=lo(host)*256+Hi(Host);
{$IFDEF FPC_BIG_ENDIAN}
shorthosttonet:=host;
{$else}
ShortHostToNet:=lo(host)*256+Hi(Host);
{$endif}
end;
Function ShortNetToHost (Net : Word) : Word;
begin
{$IFDEF FPC_BIG_ENDIAN}
shortnettohost:=net;
{$else}
ShortNetToHost:=lo(Net)*256+Hi(Net);
{$endif}
end;
end.
$Log$
Revision 1.5 2004-04-13 09:04:55 marco
Revision 1.6 2004-11-01 21:01:29 marco
* more endian fixes
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