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

* vmt offset of objects is no properly aligned when necessary

Browse Source
This commit is contained in:
florian 2004-11-05 21:07:13 +00:00
parent fa2f619598
commit 7f89448cec
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symdef.pas
View File

@ -4996,6 +4996,11 @@ implementation
begin begin
tobjectsymtable(symtable).datasize:=align(tobjectsymtable(symtable).datasize, tobjectsymtable(symtable).datasize:=align(tobjectsymtable(symtable).datasize,
tobjectsymtable(symtable).fieldalignment); tobjectsymtable(symtable).fieldalignment);
{$ifdef cpurequiresproperalignment}
tobjectsymtable(symtable).datasize:=align(tobjectsymtable(symtable).datasize,sizeof(aint));
{$endif cpurequiresproperalignment}
vmt_offset:=tobjectsymtable(symtable).datasize; vmt_offset:=tobjectsymtable(symtable).datasize;
inc(tobjectsymtable(symtable).datasize,sizeof(aint)); inc(tobjectsymtable(symtable).datasize,sizeof(aint));
include(objectoptions,oo_has_vmt); include(objectoptions,oo_has_vmt);
@ -6214,7 +6219,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.266 2004-11-04 17:58:48 peter Revision 1.267 2004-11-05 21:07:13 florian
* vmt offset of objects is no properly aligned when necessary
Revision 1.266 2004/11/04 17:58:48 peter
elecount also on 32bit needs the qword part to prevent overflow elecount also on 32bit needs the qword part to prevent overflow
Revision 1.265 2004/11/04 17:09:54 peter Revision 1.265 2004/11/04 17:09:54 peter