Переглянути джерело

* fixed c record aligning for ppc after symtablestack structure change

git-svn-id: trunk@3164 -
Jonas Maebe 19 роки тому
батько
коміт
a55ca0e89f
1 змінених файлів з 3 додано та 3 видалено
  1. 3 3
      compiler/pdecvar.pas

+ 3 - 3
compiler/pdecvar.pas

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