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

* fixed alignment of classes

Browse Source
This commit is contained in:
florian 2004-01-28 21:05:56 +00:00
parent 2d8d788211
commit 4ccec73aa5
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/globals.pas
View File

@ -435,7 +435,7 @@ implementation
procedure DefaultReplacements(var s:string);
begin
{ Replace some macro's }
{ Replace some macros }
Replace(s,'$FPCVER',version_string);
Replace(s,'$VERSION',version_string);
Replace(s,'$FULLVERSION',full_version_string);
@ -1796,7 +1796,10 @@ implementation
end.
{
$Log$
Revision 1.121 2004-01-14 23:39:05 florian
Revision 1.122 2004-01-28 21:05:56 florian
* fixed alignment of classes
Revision 1.121 2004/01/14 23:39:05 florian
* another bunch of x86-64 fixes mainly calling convention and
assembler reader related

10
compiler/symdef.pas
View File

@ -5021,7 +5021,10 @@ implementation
function tobjectdef.alignment:longint;
begin
alignment:=tobjectsymtable(symtable).recordalignment;
if objecttype in [odt_class,odt_interfacecom,odt_interfacecorba] then
alignment:=POINTER_SIZE
else
alignment:=tobjectsymtable(symtable).recordalignment;
end;
@ -6161,7 +6164,10 @@ implementation
end.
{
$Log$
Revision 1.211 2004-01-28 20:30:18 peter
Revision 1.212 2004-01-28 21:05:56 florian
* fixed alignment of classes
Revision 1.211 2004/01/28 20:30:18 peter
* record alignment splitted in fieldalignment and recordalignment,
the latter is used when this record is inserted in another record.