mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 15:27:47 +02:00
432fcd52bc
* fix for Mantis #37042: apply patch and test (adjusted for Big Endian) by Bi0T1N to add support for TBitConverter ........ * avoid range check error when using SwapEndian with 16-bit constants + added test ........ * readd SmallInt typecasts to SmallInt overload of SwapEndian ........ * when removing a method from the synchronization queue using TThread.RemoveQueuedEvent then both the Code and the Data need to match (Delphi does the same) + added test ........ * simplify TThread.RemoveQueuedEvent - decide what to delete and not what to leave (better corresponds with the docs) ........ + add ability to specify a SQLite VFS when opening a SQLite database ........ * fix test: TThread.WaitFor calls CheckSynchronize as well, so the thread needs to signal when it's done with removing entries from the queue ........ git-svn-id: branches/fixes_3_2@47782 -
15 lines
263 B
ObjectPascal
15 lines
263 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tb0676;
|
|
|
|
{$warn 4110 error}
|
|
|
|
begin
|
|
SwapEndian(UInt16($1234));
|
|
SwapEndian(Int16($8765));
|
|
SwapEndian(UInt32($12345678));
|
|
SwapEndian(Int32($87654321));
|
|
SwapEndian(UInt64($1234567887654321));
|
|
SwapEndian(Int64($8765432112345678));
|
|
end.
|