paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 07:49:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix .pdr generation by adding .end pseudo-instruction, limit .ent to text section for mips cpu

Browse Source 
git-svn-id: trunk@21700 -
This commit is contained in:
pierre 2012-06-24 21:54:31 +00:00
parent 7c21cba1e2
commit aee68923e8
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/aggas.pas
View File

@ -1177,7 +1177,8 @@ implementation
else
AsmWriteln(tai_symbol(hp).sym.name);
end;
if target_info.system in [system_mipsel_linux,system_mipseb_linux] then
if (target_info.system in [system_mipsel_linux,system_mipseb_linux])
and (tai_symbol(hp).sym.typ = AT_FUNCTION) then
begin
AsmWrite(#9'.ent'#9);
if replaceforbidden then
@ -1268,6 +1269,15 @@ implementation
s:=target_asm.labelprefix+'e'+tostr(symendcount);
inc(symendcount);
AsmWriteLn(s+':');
if (target_info.system in [system_mipsel_linux,system_mipseb_linux])
and (tai_symbol_end(hp).sym.typ = AT_FUNCTION) then
begin
AsmWrite(#9'.end'#9);
if replaceforbidden then
AsmWriteLn(ReplaceForbiddenAsmSymbolChars(tai_symbol_end(hp).sym.name))
else
AsmWriteLn(tai_symbol_end(hp).sym.name);
end;
AsmWrite(#9'.size'#9);
if (target_info.system = system_powerpc64_linux) and (tai_symbol_end(hp).sym.typ = AT_FUNCTION) then
AsmWrite('.');