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

* synchronised with r210 of the common pascal interfaces

Browse Source 
...
r210 | jonas | 2008-02-05 17:01:30 +0100 (Tue, 05 Feb 2008) | 2 lines
Changed paths:
   M /metaPascal/trunc/MPPInterfaces/CFByteOrders.pas

  * fixed CFConvert*SwappedTo* for FPC
...

git-svn-id: trunk@10231 -
This commit is contained in:
Jonas Maebe 2008-02-05 16:07:18 +00:00
parent 07723f3fdd
commit 3ced7be70c
2 changed files with 44 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
packages/univint/src/CFByteOrders.pas
View File

@ -3,7 +3,7 @@
} }
{ Pascal Translation: Peter N Lewis, <peter@stairways.com.au>, August 2005 } { Pascal Translation: Peter N Lewis, <peter@stairways.com.au>, August 2005 }
{ Pascal Translation Updated: Peter N Lewis, <peter@stairways.com.au>, September 2005 } { Pascal Translation Updated: Peter N Lewis, <peter@stairways.com.au>, September 2005 }
{ Pascal Translation Updated: Jonas Maebe, <jonas@freepascal.org>, April 2006 } { Pascal Translation Updated: Jonas Maebe, <jonas@freepascal.org>, April 2006, February 2008 }
{ {
Modified for use with Free Pascal Modified for use with Free Pascal
Version 200 Version 200
@ -150,13 +150,13 @@ type
end; end;
function CFConvertFloat32HostToSwapped( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloat32HostToSwapped( arg: Float32 ): CFSwappedFloat32; inline;
function CFConvertFloat32SwappedToHost( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloat32SwappedToHost( arg: CFSwappedFloat32 ): Float32; inline;
function CFConvertFloat64HostToSwapped( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertFloat64HostToSwapped( arg: Float64 ): CFSwappedFloat64; inline;
function CFConvertFloat64SwappedToHost( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertFloat64SwappedToHost( arg: CFSwappedFloat64 ): Float64; inline;
function CFConvertFloatHostToSwapped( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloatHostToSwapped( arg: Float32 ): CFSwappedFloat32; inline;
function CFConvertFloatSwappedToHost( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloatSwappedToHost( arg: CFSwappedFloat32 ): Float32; inline;
function CFConvertDoubleHostToSwapped( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertDoubleHostToSwapped( arg: Float64 ): CFSwappedFloat64; inline;
function CFConvertDoubleSwappedToHost( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertDoubleSwappedToHost( arg: CFSwappedFloat64 ): Float64; inline;
{$ifc TARGET_RT_LITTLE_ENDIAN} {$ifc TARGET_RT_LITTLE_ENDIAN}
@ -259,9 +259,9 @@ begin
CFConvertFloat32HostToSwapped := CFSwappedFloat32(arg); CFConvertFloat32HostToSwapped := CFSwappedFloat32(arg);
end; end;
function CFConvertFloat32SwappedToHost( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloat32SwappedToHost( arg: CFSwappedFloat32 ): Float32; inline;
begin begin
CFConvertFloat32SwappedToHost := CFSwappedFloat32(arg); CFConvertFloat32SwappedToHost := Float32(arg);
end; end;
function CFConvertFloat64HostToSwapped( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertFloat64HostToSwapped( arg: Float64 ): CFSwappedFloat64; inline;
@ -269,9 +269,9 @@ begin
CFConvertFloat64HostToSwapped := CFSwappedFloat64(arg); CFConvertFloat64HostToSwapped := CFSwappedFloat64(arg);
end; end;
function CFConvertFloat64SwappedToHost( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertFloat64SwappedToHost( arg: CFSwappedFloat64 ): Float64; inline;
begin begin
CFConvertFloat64SwappedToHost := CFSwappedFloat64(arg); CFConvertFloat64SwappedToHost := Float64(arg);
end; end;
function CFConvertFloatHostToSwapped( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloatHostToSwapped( arg: Float32 ): CFSwappedFloat32; inline;
@ -279,19 +279,19 @@ begin
CFConvertFloatHostToSwapped := CFSwappedFloat32(arg); CFConvertFloatHostToSwapped := CFSwappedFloat32(arg);
end; end;
function CFConvertFloatSwappedToHost( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloatSwappedToHost( arg: CFSwappedFloat32 ): Float32; inline;
begin begin
CFConvertFloatSwappedToHost := CFSwappedFloat32(arg); CFConvertFloatSwappedToHost := Float32(arg);
end; end;
function CFConvertDoubleHostToSwapped( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertDoubleHostToSwapped( arg: Float64): CFSwappedFloat64; inline;
begin begin
CFConvertDoubleHostToSwapped := CFSwappedFloat64(arg); CFConvertDoubleHostToSwapped := CFSwappedFloat64(arg);
end; end;
function CFConvertDoubleSwappedToHost( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertDoubleSwappedToHost( arg: CFSwappedFloat64 ): Float64; inline;
begin begin
CFConvertDoubleSwappedToHost := CFSwappedFloat64(arg); CFConvertDoubleSwappedToHost := Float64(arg);
end; end;
{$elsec} {$elsec}
@ -361,9 +361,9 @@ begin
CFConvertFloat32HostToSwapped.v := CFSwapInt32(CFSwappedFloat32(arg).v); CFConvertFloat32HostToSwapped.v := CFSwapInt32(CFSwappedFloat32(arg).v);
end; end;
function CFConvertFloat32SwappedToHost( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloat32SwappedToHost( arg: CFSwappedFloat32 ): Float32; inline;
begin begin
CFConvertFloat32SwappedToHost.v := CFSwapInt32(CFSwappedFloat32(arg).v); CFConvertFloat32SwappedToHost := Float32(CFSwappedFloat32(CFSwapInt32(arg.v)));
end; end;
function CFConvertFloat64HostToSwapped( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertFloat64HostToSwapped( arg: Float64 ): CFSwappedFloat64; inline;
@ -371,9 +371,9 @@ begin
CFConvertFloat64HostToSwapped.v := CFSwapInt64(CFSwappedFloat64(arg).v); CFConvertFloat64HostToSwapped.v := CFSwapInt64(CFSwappedFloat64(arg).v);
end; end;
function CFConvertFloat64SwappedToHost( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertFloat64SwappedToHost( arg: CFSwappedFloat64 ): Float64; inline;
begin begin
CFConvertFloat64SwappedToHost.v := CFSwapInt64(CFSwappedFloat64(arg).v); CFConvertFloat64SwappedToHost := Float64(CFSwappedFloat64(CFSwapInt64(arg.v)));
end; end;
function CFConvertFloatHostToSwapped( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloatHostToSwapped( arg: Float32 ): CFSwappedFloat32; inline;
@ -381,9 +381,9 @@ begin
CFConvertFloatHostToSwapped.v := CFSwapInt32(CFSwappedFloat32(arg).v); CFConvertFloatHostToSwapped.v := CFSwapInt32(CFSwappedFloat32(arg).v);
end; end;
function CFConvertFloatSwappedToHost( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloatSwappedToHost( arg: CFSwappedFloat32 ): Float32; inline;
begin begin
CFConvertFloatSwappedToHost.v := CFSwapInt32(CFSwappedFloat32(arg).v); CFConvertFloatSwappedToHost := Float32(CFSwappedFloat32(CFSwapInt32(arg.v)));
end; end;
function CFConvertDoubleHostToSwapped( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertDoubleHostToSwapped( arg: Float64 ): CFSwappedFloat64; inline;
@ -391,9 +391,9 @@ begin
CFConvertDoubleHostToSwapped.v := CFSwapInt64(CFSwappedFloat64(arg).v); CFConvertDoubleHostToSwapped.v := CFSwapInt64(CFSwappedFloat64(arg).v);
end; end;
function CFConvertDoubleSwappedToHost( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertDoubleSwappedToHost( arg: CFSwappedFloat64 ): Float64; inline;
begin begin
CFConvertDoubleSwappedToHost.v := CFSwapInt64(CFSwappedFloat64(arg).v); CFConvertDoubleSwappedToHost := Float64(CFSwappedFloat64(CFSwapInt64(arg.v)));
end; end;
{$endc} {$endc}

44
packages/univint/src/FPCMacOSAll.pas
View File

@ -16004,7 +16004,7 @@ procedure CFBitVectorSetAllBits( bv: CFMutableBitVectorRef; value: CFBit ); exte
} }
{ Pascal Translation: Peter N Lewis, <peter@stairways.com.au>, August 2005 } { Pascal Translation: Peter N Lewis, <peter@stairways.com.au>, August 2005 }
{ Pascal Translation Updated: Peter N Lewis, <peter@stairways.com.au>, September 2005 } { Pascal Translation Updated: Peter N Lewis, <peter@stairways.com.au>, September 2005 }
{ Pascal Translation Updated: Jonas Maebe, <jonas@freepascal.org>, April 2006 } { Pascal Translation Updated: Jonas Maebe, <jonas@freepascal.org>, April 2006, February 2008 }
{ {
Modified for use with Free Pascal Modified for use with Free Pascal
Version 200 Version 200
@ -16069,13 +16069,13 @@ type
end; end;
function CFConvertFloat32HostToSwapped( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloat32HostToSwapped( arg: Float32 ): CFSwappedFloat32; inline;
function CFConvertFloat32SwappedToHost( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloat32SwappedToHost( arg: CFSwappedFloat32 ): Float32; inline;
function CFConvertFloat64HostToSwapped( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertFloat64HostToSwapped( arg: Float64 ): CFSwappedFloat64; inline;
function CFConvertFloat64SwappedToHost( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertFloat64SwappedToHost( arg: CFSwappedFloat64 ): Float64; inline;
function CFConvertFloatHostToSwapped( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloatHostToSwapped( arg: Float32 ): CFSwappedFloat32; inline;
function CFConvertFloatSwappedToHost( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloatSwappedToHost( arg: CFSwappedFloat32 ): Float32; inline;
function CFConvertDoubleHostToSwapped( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertDoubleHostToSwapped( arg: Float64 ): CFSwappedFloat64; inline;
function CFConvertDoubleSwappedToHost( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertDoubleSwappedToHost( arg: CFSwappedFloat64 ): Float64; inline;
{$ifc TARGET_RT_LITTLE_ENDIAN} {$ifc TARGET_RT_LITTLE_ENDIAN}
@ -270570,9 +270570,9 @@ begin
CFConvertFloat32HostToSwapped := CFSwappedFloat32(arg); CFConvertFloat32HostToSwapped := CFSwappedFloat32(arg);
end; end;
function CFConvertFloat32SwappedToHost( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloat32SwappedToHost( arg: CFSwappedFloat32 ): Float32; inline;
begin begin
CFConvertFloat32SwappedToHost := CFSwappedFloat32(arg); CFConvertFloat32SwappedToHost := Float32(arg);
end; end;
function CFConvertFloat64HostToSwapped( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertFloat64HostToSwapped( arg: Float64 ): CFSwappedFloat64; inline;
@ -270580,9 +270580,9 @@ begin
CFConvertFloat64HostToSwapped := CFSwappedFloat64(arg); CFConvertFloat64HostToSwapped := CFSwappedFloat64(arg);
end; end;
function CFConvertFloat64SwappedToHost( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertFloat64SwappedToHost( arg: CFSwappedFloat64 ): Float64; inline;
begin begin
CFConvertFloat64SwappedToHost := CFSwappedFloat64(arg); CFConvertFloat64SwappedToHost := Float64(arg);
end; end;
function CFConvertFloatHostToSwapped( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloatHostToSwapped( arg: Float32 ): CFSwappedFloat32; inline;
@ -270590,19 +270590,19 @@ begin
CFConvertFloatHostToSwapped := CFSwappedFloat32(arg); CFConvertFloatHostToSwapped := CFSwappedFloat32(arg);
end; end;
function CFConvertFloatSwappedToHost( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloatSwappedToHost( arg: CFSwappedFloat32 ): Float32; inline;
begin begin
CFConvertFloatSwappedToHost := CFSwappedFloat32(arg); CFConvertFloatSwappedToHost := Float32(arg);
end; end;
function CFConvertDoubleHostToSwapped( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertDoubleHostToSwapped( arg: Float64): CFSwappedFloat64; inline;
begin begin
CFConvertDoubleHostToSwapped := CFSwappedFloat64(arg); CFConvertDoubleHostToSwapped := CFSwappedFloat64(arg);
end; end;
function CFConvertDoubleSwappedToHost( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertDoubleSwappedToHost( arg: CFSwappedFloat64 ): Float64; inline;
begin begin
CFConvertDoubleSwappedToHost := CFSwappedFloat64(arg); CFConvertDoubleSwappedToHost := Float64(arg);
end; end;
{$elsec} {$elsec}
@ -270672,9 +270672,9 @@ begin
CFConvertFloat32HostToSwapped.v := CFSwapInt32(CFSwappedFloat32(arg).v); CFConvertFloat32HostToSwapped.v := CFSwapInt32(CFSwappedFloat32(arg).v);
end; end;
function CFConvertFloat32SwappedToHost( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloat32SwappedToHost( arg: CFSwappedFloat32 ): Float32; inline;
begin begin
CFConvertFloat32SwappedToHost.v := CFSwapInt32(CFSwappedFloat32(arg).v); CFConvertFloat32SwappedToHost := Float32(CFSwappedFloat32(CFSwapInt32(arg.v)));
end; end;
function CFConvertFloat64HostToSwapped( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertFloat64HostToSwapped( arg: Float64 ): CFSwappedFloat64; inline;
@ -270682,9 +270682,9 @@ begin
CFConvertFloat64HostToSwapped.v := CFSwapInt64(CFSwappedFloat64(arg).v); CFConvertFloat64HostToSwapped.v := CFSwapInt64(CFSwappedFloat64(arg).v);
end; end;
function CFConvertFloat64SwappedToHost( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertFloat64SwappedToHost( arg: CFSwappedFloat64 ): Float64; inline;
begin begin
CFConvertFloat64SwappedToHost.v := CFSwapInt64(CFSwappedFloat64(arg).v); CFConvertFloat64SwappedToHost := Float64(CFSwappedFloat64(CFSwapInt64(arg.v)));
end; end;
function CFConvertFloatHostToSwapped( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloatHostToSwapped( arg: Float32 ): CFSwappedFloat32; inline;
@ -270692,9 +270692,9 @@ begin
CFConvertFloatHostToSwapped.v := CFSwapInt32(CFSwappedFloat32(arg).v); CFConvertFloatHostToSwapped.v := CFSwapInt32(CFSwappedFloat32(arg).v);
end; end;
function CFConvertFloatSwappedToHost( arg: Float32 ): CFSwappedFloat32; inline; function CFConvertFloatSwappedToHost( arg: CFSwappedFloat32 ): Float32; inline;
begin begin
CFConvertFloatSwappedToHost.v := CFSwapInt32(CFSwappedFloat32(arg).v); CFConvertFloatSwappedToHost := Float32(CFSwappedFloat32(CFSwapInt32(arg.v)));
end; end;
function CFConvertDoubleHostToSwapped( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertDoubleHostToSwapped( arg: Float64 ): CFSwappedFloat64; inline;
@ -270702,9 +270702,9 @@ begin
CFConvertDoubleHostToSwapped.v := CFSwapInt64(CFSwappedFloat64(arg).v); CFConvertDoubleHostToSwapped.v := CFSwapInt64(CFSwappedFloat64(arg).v);
end; end;
function CFConvertDoubleSwappedToHost( arg: Float64 ): CFSwappedFloat64; inline; function CFConvertDoubleSwappedToHost( arg: CFSwappedFloat64 ): Float64; inline;
begin begin
CFConvertDoubleSwappedToHost.v := CFSwapInt64(CFSwappedFloat64(arg).v); CFConvertDoubleSwappedToHost := Float64(CFSwappedFloat64(CFSwapInt64(arg.v)));
end; end;
{$endc} {$endc}