Browse Source

* also correctly align the pointer for the record elements inside FPC_COPY

git-svn-id: trunk@42781 -
svenbarth 6 years ago
parent
commit
00a418f589
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/inc/rtti.inc

+ 1 - 1
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;