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

* fix padding on 64 bit big endian CPUs in TInterfaceEntry: wrong offset of a member caused memory corruption and then access violations during object creation. Fixes timplements* tests.

Browse Source 
git-svn-id: trunk@11031 -
This commit is contained in:
tom_at_work 2008-05-21 21:29:58 +00:00
parent 873409cd3c
commit 94ead30261
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/objpash.inc
View File

@ -125,7 +125,11 @@
IOffset : ptruint; IOffset : ptruint;
IIDStr : pshortstring; { never nil. Com: upper(GuidToString(IID^)) } IIDStr : pshortstring; { never nil. Com: upper(GuidToString(IID^)) }
case boolean of case boolean of
{$ifdef ENDIAN_BIG}
true : ({$IFDEF CPU64}__pad: longint;{$ENDIF}IType : tinterfaceentrytype);
{$else ENDIAN_BIG}
true : (IType : tinterfaceentrytype); true : (IType : tinterfaceentrytype);
{$endif ENDIAN_BIG}
false : (__pad_dummy : pointer); false : (__pad_dummy : pointer);
end; end;