paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 08:00:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* more alignment fixes

Browse Source
This commit is contained in:
florian 2004-03-22 22:19:36 +00:00
parent 3ac0c812e0
commit 7367801810
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/objpas.inc
View File

@ -161,14 +161,24 @@
var
intftable : pinterfacetable;
i : longint;
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
IOffset : longint;
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
begin
while assigned(objclass) do
begin
intftable:=pinterfacetable((pointer(objclass)+vmtIntfTable)^);
if assigned(intftable) then
for i:=0 to intftable^.EntryCount-1 do
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
begin
move(intftable^.Entries[i].IOffset,IOffset,sizeof(longint));
move(pointer(intftable^.Entries[i].VTable),ppointer(@(PChar(instance)[IOffset]))^,sizeof(pointer));
end;
{$else FPC_REQUIRES_PROPER_ALIGNMENT}
ppointer(@(PChar(instance)[intftable^.Entries[i].IOffset]))^:=
pointer(intftable^.Entries[i].VTable);
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
objclass:=pclass(pointer(objclass)+vmtParent)^;
end;
end;
@ -737,7 +747,10 @@
{
$Log$
Revision 1.35 2004-03-21 22:41:29 florian
Revision 1.36 2004-03-22 22:19:36 florian
* more alignment fixes
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