paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 06:49:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

Create .ent/.end pair for mips/mipsel and alpha

Browse Source 
git-svn-id: trunk@21787 -
This commit is contained in:
pierre 2012-07-04 16:38:57 +00:00
parent 3acc0e6686
commit 024bde8875
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/hlcgobj.pas
View File

@ -3480,6 +3480,13 @@ implementation
current_filepos:=storepos;
end;
function use_ent : boolean;
begin
use_ent := (target_info.system in [system_mipsel_linux,system_mipseb_linux])
or (target_info.cpu=cpu_alpha);
end;
procedure thlcgobj.gen_proc_symbol(list: TAsmList);
var
item,
@ -3513,11 +3520,15 @@ implementation
previtem:=item;
item := TCmdStrListItem(item.next);
end;
if (use_ent) then
list.concat(Tai_ent.create(current_procinfo.procdef.mangledname));
current_procinfo.procdef.procstarttai:=tai(list.last);
end;
procedure thlcgobj.gen_proc_symbol_end(list: TAsmList);
begin
if (use_ent) then
list.concat(Tai_ent_end.create(current_procinfo.procdef.mangledname));
list.concat(Tai_symbol_end.Createname(current_procinfo.procdef.mangledname));
current_procinfo.procdef.procendtai:=tai(list.last);