paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-03 17:10:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Now uses 'word' instead of 'integer' for short<->net conversions, as the

Browse Source 
short conversions are used for port numbers, which are unsigned.
This commit is contained in:
sg 2001-12-17 20:29:00 +00:00
parent da679ddba8
commit 2d11981745
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/inet/inet.pp
View File

@ -145,8 +145,8 @@ function NetAddrToStr (Entry : Longint) : String;
function StrToNetAddr (IP : String) : Longint;
Function HostToNet (Host : Longint) : Longint;
Function NetToHost (Net : Longint) : Longint;
Function ShortHostToNet (Host : integer) : integer;
Function ShortNetToHost (Net : integer) : integer;
Function ShortHostToNet (Host : Word) : Word;
Function ShortNetToHost (Net : Word) : Word;
{ C style calls, linked in from Libc }
@ -512,13 +512,13 @@ begin
NetToHost:=NetToHost or ( (THostAddr(Net)[4]) shl 24);
end;
Function ShortHostToNet (Host : integer) : integer;
Function ShortHostToNet (Host : Word) : Word;
begin
ShortHostToNet:=lo(host)*256+Hi(Host);
end;
Function ShortNetToHost (Net : integer) : integer;
Function ShortNetToHost (Net : Word) : Word;
begin
ShortNetToHost:=lo(Net)*256+Hi(Net);
@ -528,7 +528,11 @@ end.
$Log$
Revision 1.2 2000-07-13 11:33:26 michael
Revision 1.3 2001-12-17 20:29:00 sg
* Now uses 'word' instead of 'integer' for short<->net conversions, as the
short conversions are used for port numbers, which are unsigned.
Revision 1.2 2000/07/13 11:33:26 michael
+ removed logs
}