mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 11:08:02 +02:00
34 lines
568 B
ObjectPascal
34 lines
568 B
ObjectPascal
{ %norun }
|
|
|
|
{$mode macpas}
|
|
|
|
{$inline on}
|
|
|
|
unit tw7817a;
|
|
|
|
interface
|
|
|
|
type
|
|
CFByteOrder = longint;
|
|
UInt8Ptr = ^byte;
|
|
UInt32 = cardinal;
|
|
const
|
|
CFByteOrderUnknown = 0;
|
|
CFByteOrderLittleEndian = 1;
|
|
CFByteOrderBigEndian = 2;
|
|
|
|
|
|
function CFByteOrderGetCurrent: CFByteOrder; inline;
|
|
|
|
implementation
|
|
|
|
function CFByteOrderGetCurrent: CFByteOrder; inline;
|
|
var
|
|
x: UInt32 = (CFByteOrderBigEndian shl 24) or CFByteOrderLittleEndian;
|
|
begin
|
|
CFByteOrderGetCurrent := CFByteOrder(UInt8Ptr(@x)^);
|
|
end;
|
|
|
|
end.
|
|
|