Explorar el Código

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

git-svn-id: trunk@42781 -
svenbarth hace 6 años
padre
commit
00a418f589
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  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;