From 024bde8875385e3e580a27041696336ee176d903 Mon Sep 17 00:00:00 2001 From: pierre Date: Wed, 4 Jul 2012 16:38:57 +0000 Subject: [PATCH] Create .ent/.end pair for mips/mipsel and alpha git-svn-id: trunk@21787 - --- compiler/hlcgobj.pas | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/compiler/hlcgobj.pas b/compiler/hlcgobj.pas index a20f3edb84..9cb1f8fbff 100644 --- a/compiler/hlcgobj.pas +++ b/compiler/hlcgobj.pas @@ -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);