From 6e84d4275d17d85380e79f421bbc6841dd0194bd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Mon, 24 Jul 2023 21:51:04 +0200
Subject: [PATCH] * Fix for tmarshaller big endianness

---
 tests/test/units/sysutils/tmarshaller.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/test/units/sysutils/tmarshaller.pp b/tests/test/units/sysutils/tmarshaller.pp
index 0311dc815a..e1e70b3158 100644
--- a/tests/test/units/sysutils/tmarshaller.pp
+++ b/tests/test/units/sysutils/tmarshaller.pp
@@ -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);