paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* updated to r241 of the common interfaces:

Browse Source 
...
r241 | jonas | 2009-08-11 21:28:33 +0200 (Tue, 11 Aug 2009) | 2 lines
Changed paths:
   M /metaPascal/trunc/MPPInterfaces/Endian.pas

  + added implementation for FPC for Endian*LtoB() and Endian*BtoL() routines

git-svn-id: trunk@13519 -
This commit is contained in:
Jonas Maebe 2009-08-11 19:29:45 +00:00
parent 9880901dbe
commit b44bdaa07b
2 changed files with 122 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
packages/univint/src/Endian.pas
View File

@ -764,5 +764,66 @@ end;
{$endc}
function EndianS16_LtoB( arg: SInt16 ): SInt16; inline;
begin
EndianS16_LtoB:=EndianS16_Swap(arg);
end;
function EndianS16_BtoL( arg: SInt16 ): SInt16; inline;
begin
EndianS16_BtoL:=EndianS16_Swap(arg);
end;
function EndianU16_LtoB( arg: UInt16 ): UInt16; inline;
begin
EndianU16_LtoB:=Endian16_Swap(arg);
end;
function EndianU16_BtoL( arg: UInt16 ): UInt16; inline;
begin
EndianU16_BtoL:=Endian16_Swap(arg);
end;
function EndianS32_LtoB( arg: SInt32 ): SInt32; inline;
begin
EndianS32_LtoB:=EndianS32_Swap(arg);
end;
function EndianS32_BtoL( arg: SInt32 ): SInt32; inline;
begin
EndianS32_BtoL:=EndianS32_Swap(arg);
end;
function EndianU32_LtoB( arg: UInt32 ): UInt32; inline;
begin
EndianU32_LtoB:=Endian32_Swap(arg);
end;
function EndianU32_BtoL( arg: UInt32 ): UInt32; inline;
begin
EndianU32_BtoL:=Endian32_Swap(arg);
end;
function EndianS64_LtoB( arg: SInt64 ): SInt64; inline;
begin
EndianS64_LtoB:=EndianS64_Swap(arg);
end;
function EndianS64_BtoL( arg: SInt64 ): SInt64; inline;
begin
EndianS64_BtoL:=EndianS64_Swap(arg);
end;
function EndianU64_LtoB( arg: UInt64 ): UInt64; inline;
begin
EndianU64_LtoB:=Endian64_Swap_Pascal(arg);
end;
function EndianU64_BtoL( arg: UInt64 ): UInt64; inline;
begin
EndianU64_BtoL:=Endian64_Swap_Pascal(arg);
end;
end.

61
packages/univint/src/MacOSAll.pas
View File

@ -277189,6 +277189,67 @@ end;
{$endc}
function EndianS16_LtoB( arg: SInt16 ): SInt16; inline;
begin
EndianS16_LtoB:=EndianS16_Swap(arg);
end;
function EndianS16_BtoL( arg: SInt16 ): SInt16; inline;
begin
EndianS16_BtoL:=EndianS16_Swap(arg);
end;
function EndianU16_LtoB( arg: UInt16 ): UInt16; inline;
begin
EndianU16_LtoB:=Endian16_Swap(arg);
end;
function EndianU16_BtoL( arg: UInt16 ): UInt16; inline;
begin
EndianU16_BtoL:=Endian16_Swap(arg);
end;
function EndianS32_LtoB( arg: SInt32 ): SInt32; inline;
begin
EndianS32_LtoB:=EndianS32_Swap(arg);
end;
function EndianS32_BtoL( arg: SInt32 ): SInt32; inline;
begin
EndianS32_BtoL:=EndianS32_Swap(arg);
end;
function EndianU32_LtoB( arg: UInt32 ): UInt32; inline;
begin
EndianU32_LtoB:=Endian32_Swap(arg);
end;
function EndianU32_BtoL( arg: UInt32 ): UInt32; inline;
begin
EndianU32_BtoL:=Endian32_Swap(arg);
end;
function EndianS64_LtoB( arg: SInt64 ): SInt64; inline;
begin
EndianS64_LtoB:=EndianS64_Swap(arg);
end;
function EndianS64_BtoL( arg: SInt64 ): SInt64; inline;
begin
EndianS64_BtoL:=EndianS64_Swap(arg);
end;
function EndianU64_LtoB( arg: UInt64 ): UInt64; inline;
begin
EndianU64_LtoB:=Endian64_Swap_Pascal(arg);
end;
function EndianU64_BtoL( arg: UInt64 ): UInt64; inline;
begin
EndianU64_BtoL:=Endian64_Swap_Pascal(arg);
end;
{implementation of unit CFString}