paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-11 06:39:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* make sure tobjects are pointer-size aligned in case of VMT usage; fixes tw1365 on armeb-linux

Browse Source 
git-svn-id: trunk@10544 -
This commit is contained in:
micha 2008-03-23 23:42:53 +00:00
parent 6305d7d5a3
commit 40211152d4
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ptconst.pas
View File

@ -1174,6 +1174,7 @@ implementation
obj : tobjectdef; obj : tobjectdef;
srsym : tsym; srsym : tsym;
st : tsymtable; st : tsymtable;
objst : tobjectsymtable;
curroffset : aint; curroffset : aint;
s,sorg : TIDString; s,sorg : TIDString;
vmtwritten : boolean; vmtwritten : boolean;
@ -1249,6 +1250,9 @@ implementation
(oo_has_vmt in def.objectoptions) and (oo_has_vmt in def.objectoptions) and
(def.vmt_offset<fieldoffset) then (def.vmt_offset<fieldoffset) then
begin begin
objst:=tobjectsymtable(def.symtable);
if objst.recordalignment<sizeof(TConstPtrUInt) then
objst.recordalignment:=sizeof(TConstPtrUInt);
for i:=1 to def.vmt_offset-curroffset do for i:=1 to def.vmt_offset-curroffset do
list.concat(tai_const.create_8bit(0)); list.concat(tai_const.create_8bit(0));
list.concat(tai_const.createname(def.vmt_mangledname,0)); list.concat(tai_const.createname(def.vmt_mangledname,0));

2
compiler/systems/i_linux.pas
View File

@ -610,7 +610,7 @@ unit i_linux;
res : res_elf; res : res_elf;
dbg : dbg_stabs; dbg : dbg_stabs;
script : script_unix; script : script_unix;
endian : endian_little; endian : endian_big;
alignment : alignment :
( (
procalign : 4; procalign : 4;