From 00a418f589341d6ed9f3ba4ee80f6e6d552aa541 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Fri, 23 Aug 2019 21:57:17 +0000
Subject: [PATCH] * also correctly align the pointer for the record elements
inside FPC_COPY
git-svn-id: trunk@42781 -
---
rtl/inc/rtti.inc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/rtl/inc/rtti.inc b/rtl/inc/rtti.inc
index 5f72cf8601..c39f199625 100644
--- a/rtl/inc/rtti.inc
+++ b/rtl/inc/rtti.inc
@@ -404,7 +404,7 @@ begin
Result:=PRecordInfoInit(Temp)^.Size;
EleCount:=PRecordInfoInit(Temp)^.Count;
{ Get element info, hacky, but what else can we do? }
- Temp:=aligntoptr(Pointer(@PRecordInfoInit(Temp)^.Count)+SizeOf(PRecordInfoInit(Temp)^.Count));
+ Temp:=AlignTypeData(Pointer(@PRecordInfoInit(Temp)^.Count)+SizeOf(PRecordInfoInit(Temp)^.Count));
{$else VER3_0}
Result:=PRecordInfoFull(Temp)^.Size;
EleCount:=PRecordInfoFull(Temp)^.Count;