paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* always use assembler directives that support unaligned data on AIX, as

Browse Source 
otherwise data in initialised packed records gets aligned wrongly. This
    should probably also be done for other targets that automatically
    align .short/.long/...

git-svn-id: trunk@27600 -
This commit is contained in:
Jonas Maebe 2014-04-19 18:48:40 +00:00
parent bcf007a4b3
commit 0dbfb99afa
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/aggas.pas
View File

@ -1029,14 +1029,13 @@ implementation
else if (constdef in ait_unaligned_consts) and
(target_info.system in use_ua_elf_systems) then
AsmWrite(ait_ua_elf_const2str[constdef])
else if not(target_info.system in systems_aix) or
(constdef<>aitconst_64bit) then
AsmWrite(ait_const2str[constdef])
{ we can also have unaligned pointers in packed record
constants, which don't get translated into
unaligned tai -> always use vbyte }
else if target_info.system in systems_aix then
AsmWrite(#9'.vbyte'#9+tostr(tai_const(hp).size)+',')
else
{ can't use .llong, because that forces 8 byte
alignnment and we sometimes store addresses on
4-byte aligned addresses (e.g. in the RTTI) }
AsmWrite('.vbyte'#9'8,');
AsmWrite(ait_const2str[constdef]);
l:=0;
t := '';
repeat