paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Moved generation of .ent/.end directives out of generic code generator.

Browse Source 
* Generation of .ent/.end directives for Alpha is dropped, but that target has more important issues to solve.

git-svn-id: trunk@26757 -
This commit is contained in:
sergei 2014-02-12 17:30:48 +00:00
parent 4da9805007
commit ed1555b918
2 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/hlcgobj.pas
View File

@ -3857,12 +3857,6 @@ implementation
end;
function use_ent : boolean;
begin
use_ent := (target_info.system in [system_mipsel_linux,system_mipseb_linux,system_mipsel_android])
or (target_info.cpu=cpu_alpha);
end;
procedure thlcgobj.gen_proc_symbol(list: TAsmList);
var
item,
@ -3896,15 +3890,11 @@ implementation
previtem:=item;
item := TCmdStrListItem(item.next);
end;
if (use_ent) then
list.concat(Tai_directive.create(asd_ent,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_directive.create(asd_ent_end,current_procinfo.procdef.mangledname));
list.concat(Tai_symbol_end.Createname(current_procinfo.procdef.mangledname));
current_procinfo.procdef.procendtai:=tai(list.last);

2
compiler/mips/cgcpu.pas
View File

@ -1195,6 +1195,7 @@ var
helplist : TAsmList;
largeoffs : boolean;
begin
list.concat(tai_directive.create(asd_ent,current_procinfo.procdef.mangledname));
a_reg_alloc(list,NR_STACK_POINTER_REG);
if nostackframe then
@ -1396,6 +1397,7 @@ begin
list.concat(Taicpu.op_none(A_P_SET_MACRO));
list.concat(Taicpu.op_none(A_P_SET_REORDER));
end;
list.concat(tai_directive.create(asd_ent_end,current_procinfo.procdef.mangledname));
end;