paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 06:08:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix for tmarshaller big endianness

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-24 21:51:04 +02:00
parent 813105ea0a
commit 6e84d4275d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/units/sysutils/tmarshaller.pp
View File

@ -153,7 +153,7 @@ const
Expect(IntToHex(LEtoN(TMarshal.ReadInt16(pw2, 5)), 4), '2345', 'ReadInt16');
Expect(IntToHex(LEtoN(TMarshal.ReadInt32(pw2, 7)), 8), '6789ABCD', 'ReadInt32');
Expect(IntToHex(LEtoN(TMarshal.ReadInt64(pw2, 11)), 16), 'EF00112233445566', 'ReadInt64');
Expect(IntToHex(LEtoN(TMarshal.ReadPtr(pw2, 19).ToInteger), sizeof(pointer) * 2), IntToHex(NativeUint(ptrVal), sizeof(pointer) * 2), 'ReadPtr');
Expect(IntToHex(TMarshal.ReadPtr(pw2, 19).ToInteger, sizeof(pointer) * 2), IntToHex(NativeUint(ptrVal), sizeof(pointer) * 2), 'ReadPtr');
pw := TMarshal.AllocMem(19);
TMarshal.Move(pw2, pw, 19);