paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 00:27:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

* CleanupInstance takes now care of FPC_REQUIRES_PROPER_ALIGNMENT

Browse Source
This commit is contained in:
florian 2004-03-21 22:41:29 +00:00
parent f3c4d487e7
commit 5e82863f3f
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/inc/objpas.inc
View File

@ -523,12 +523,15 @@
Size,Count : Longint;
Elements : TRecElemArray;
end;
var
vmt : tclass;
temp : pbyte;
count,
i : longint;
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
recelem : TRecElem;
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
begin
vmt:=ClassType;
while vmt<>nil do
@ -541,11 +544,23 @@
inc(Temp);
I:=Temp^;
inc(temp,I+1); // skip name string;
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
move(PRecRec(Temp)^.Count,Count,sizeof(Count));
{$else FPC_REQUIRES_PROPER_ALIGNMENT}
Count:=PRecRec(Temp)^.Count; // get element Count
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
For I:=1 to count do
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
begin
move(PRecRec(Temp)^.elements[I],RecElem,sizeof(RecElem));
With RecElem do
int_Finalize (pointer(self)+Offset,Info);
end;
{$else FPC_REQUIRES_PROPER_ALIGNMENT}
With PRecRec(Temp)^.elements[I] do
int_Finalize (pointer(self)+Offset,Info);
end;
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
end;
vmt:=pclass(pointer(vmt)+vmtParent)^;
end;
end;
@ -722,7 +737,10 @@
{
$Log$
Revision 1.34 2004-02-26 16:19:01 peter
Revision 1.35 2004-03-21 22:41:29 florian
* CleanupInstance takes now care of FPC_REQUIRES_PROPER_ALIGNMENT
Revision 1.34 2004/02/26 16:19:01 peter
* tkclass removed from finalize()
* cleanupinstance now parses the tkclass rtti entry itself and
calls finalize() for the rtti members