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

+ Endian patch from bas steendijk@xs4all.nl

Browse Source
This commit is contained in:
michael 2003-09-29 07:44:11 +00:00
parent 15446d6522
commit d13aa881b5
1 changed files with 32 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
packages/base/netdb/netdb.pp
View File

@ -137,21 +137,44 @@ Var
{ ---------------------------------------------------------------------
Auxiliary functions.
---------------------------------------------------------------------}
function htonl(i:integer):integer;
begin
{$ifdef ENDIAN_LITTLE}
result := (i shr 24) or (i shr 8 and $ff00) or (i shl 8 and $ff0000) or (i shl 24 and $ff000000);
{$else}
result := i;
{$endif}
end
Function htons(var W : Word) : word;
begin
w:=Swap(w);
Result:=W;
{$ifdef ENDIAN_LITTLE}
result := ((w and $ff00) shr 8) or ((w and $ff) shl 8);
{$else}
result := w;
{$endif}
end;
Function ntohs(var W : Word) : Word;
begin
w:=Swap(w);
Result:=W;
{$ifdef ENDIAN_LITTLE}
result := ((w and $ff00) shr 8) or ((w and $ff) shl 8);
{$else}
result := w;
{$endif}
end;
function ntohl(i:integer):integer;
begin
{$ifdef ENDIAN_LITTLE}
result := (i shr 24) or (i shr 8 and $ff00) or (i shl 8 and $ff0000) or (i shl 24 and $ff000000);
{$else}
result := i;
{$endif}
end;
{ ---------------------------------------------------------------------
Resolve.conf handling
@ -955,7 +978,10 @@ end.
{
$Log$
Revision 1.5 2003-09-28 09:34:02 peter
Revision 1.6 2003-09-29 07:44:11 michael
+ Endian patch from bas steendijk@xs4all.nl
Revision 1.5 2003/09/28 09:34:02 peter
* unix fix for 1.0.x
Revision 1.4 2003/09/18 16:30:23 marco
@ -964,4 +990,4 @@ end.
Revision 1.3 2003/05/17 20:54:03 michael
+ uriparser unit added. Header/Footer blocks added
}
}