paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 22:28:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Extend ait_ua_elf_const2str to all aitconst_XXX to fix mips/mipsel RTTI generation

Browse Source 
git-svn-id: trunk@45719 -
(cherry picked from commit f71415a2de)
This commit is contained in:
pierre 2020-07-02 16:06:01 +00:00 committed by Pierre Muller
parent 7b2f6871ff
commit 0b5af8a53f
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/aggas.pas
View File

@ -154,10 +154,12 @@ implementation
{ Generic unaligned pseudo-instructions, seems ELF specific }
use_ua_elf_systems = [system_mipsel_linux,system_mipseb_linux,system_mipsel_android,system_mipsel_embedded,system_mipseb_embedded];
ait_ua_elf_const2str : array[aitconst_16bit_unaligned..aitconst_64bit_unaligned]
of string[20]=(
#9'.2byte'#9,#9'.4byte'#9,#9'.8byte'#9
);
ait_ua_elf_const2str : array[aitconst_128bit..aitconst_64bit_unaligned] of string[20]=(
#9'.fixme128'#9,#9'.8byte'#9,#9'.4byte'#9,#9'.2byte'#9,#9'.byte'#9,
#9'.sleb128'#9,#9'.uleb128'#9,
#9'.rva'#9,#9'.secrel32'#9,#9'.8byte'#9,#9'.4byte'#9,#9'.2byte'#9,#9'.2byte'#9,
#9'.2byte'#9,#9'.4byte'#9,#9'.8byte'#9
);
@ -1044,8 +1046,7 @@ implementation
if (constdef in ait_unaligned_consts) and
(target_info.system in use_ua_sparc_systems) then
writer.AsmWrite(ait_ua_sparc_const2str[constdef])
else if (constdef in ait_unaligned_consts) and
(target_info.system in use_ua_elf_systems) then
else if (target_info.system in use_ua_elf_systems) then
writer.AsmWrite(ait_ua_elf_const2str[constdef])
{ we can also have unaligned pointers in packed record
constants, which don't get translated into