paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Support ait_ent and ait_ent_end

Browse Source 
git-svn-id: trunk@21784 -
This commit is contained in:
pierre 2012-07-04 16:36:33 +00:00
parent 502cd6db29
commit 9b7fec59bb
1 changed files with 14 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/aggas.pas
View File

@ -1177,15 +1177,6 @@ implementation
else
AsmWriteln(tai_symbol(hp).sym.name);
end;
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
AsmWriteln(ReplaceForbiddenAsmSymbolChars(tai_symbol(hp).sym.name))
else
AsmWriteln(tai_symbol(hp).sym.name);
end;
if (target_info.system = system_powerpc64_linux) and
(tai_symbol(hp).sym.typ = AT_FUNCTION) then
begin
@ -1256,28 +1247,29 @@ implementation
AsmWriteLn(#9'.thumb_func');
end;
{$endif arm}
{$if defined(alpha)}
ait_ent:
begin
AsmWriteLn(#9'.ent'#9+tai_ent(hp).Name);
AsmWrite(#9'.ent'#9);
if replaceforbidden then
AsmWriteLn(ReplaceForbiddenAsmSymbolChars(tai_ent(hp).Name))
else
AsmWriteLn(tai_ent(hp).Name);
end;
{$endif alpha}
ait_symbol_end :
ait_ent_end:
begin
AsmWrite(#9'.end'#9);
if replaceforbidden then
AsmWriteLn(ReplaceForbiddenAsmSymbolChars(tai_ent_end(hp).Name))
else
AsmWriteLn(tai_ent_end(hp).Name);
end;
ait_symbol_end :
begin
if tf_needs_symbol_size in target_info.flags then
begin
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('.');