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

* fixed c record aligning for ppc after symtablestack structure change

Browse Source 
git-svn-id: trunk@3164 -
This commit is contained in:
Jonas Maebe 2006-04-07 20:41:33 +00:00
parent 439f1401fe
commit a55ca0e89f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/pdecvar.pas
View File

@ -1101,7 +1101,7 @@ implementation
} }
if (target_info.system in [system_powerpc_darwin, system_powerpc_macos]) and if (target_info.system in [system_powerpc_darwin, system_powerpc_macos]) and
is_first_field and is_first_field and
(trecordsymtable(symtablestack).usefieldalignment = -1) then (trecordsymtable(symtablestack.top).usefieldalignment = -1) then
begin begin
tempdef := tt.def; tempdef := tt.def;
while tempdef.deftype = arraydef do while tempdef.deftype = arraydef do
@ -1112,8 +1112,8 @@ implementation
maxpadalign := trecorddef(tempdef).padalignment; maxpadalign := trecorddef(tempdef).padalignment;
if (maxpadalign > 4) and if (maxpadalign > 4) and
(maxpadalign > trecordsymtable(symtablestack).padalignment) then (maxpadalign > trecordsymtable(symtablestack.top).padalignment) then
trecordsymtable(symtablestack).padalignment := maxpadalign; trecordsymtable(symtablestack.top).padalignment := maxpadalign;
is_first_field := false; is_first_field := false;
end; end;
{$endif powerpc} {$endif powerpc}