paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 21:28:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed duplicate alias check

Browse Source 
git-svn-id: trunk@6003 -
This commit is contained in:
peter 2007-01-16 18:31:27 +00:00
parent 84445cd6c0
commit 323fc850b9
2 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/ncgutil.pas
View File

@ -1919,20 +1919,20 @@ implementation
procedure gen_proc_symbol(list:TAsmList);
var
hs : string;
item : tstringlistitem;
begin
repeat
hs:=current_procinfo.procdef.aliasnames.getfirst;
if hs='' then
break;
if (cs_profile in current_settings.moduleswitches) or
(po_global in current_procinfo.procdef.procoptions) then
list.concat(Tai_symbol.createname_global(hs,AT_FUNCTION,0))
else
list.concat(Tai_symbol.createname(hs,AT_FUNCTION,0));
if tf_use_function_relative_addresses in target_info.flags then
list.concat(Tai_function_name.create(hs));
until false;
item := tstringlistitem(current_procinfo.procdef.aliasnames.first);
while assigned(item) do
begin
if (cs_profile in current_settings.moduleswitches) or
(po_global in current_procinfo.procdef.procoptions) then
list.concat(Tai_symbol.createname_global(item.str,AT_FUNCTION,0))
else
list.concat(Tai_symbol.createname(item.str,AT_FUNCTION,0));
if tf_use_function_relative_addresses in target_info.flags then
list.concat(Tai_function_name.create(item.str));
item := tstringlistitem(item.next);
end;
current_procinfo.procdef.procstarttai:=tai(list.last);
end;

2
compiler/systems/t_linux.pas
View File

@ -164,7 +164,7 @@ begin
{ the manglednames can already be the same when the procedure
is declared with cdecl }
pd:=tprocdef(tprocsym(hp2.sym).ProcdefList[0]);
if has_alias_name(pd,hp2.name^) then
if not has_alias_name(pd,hp2.name^) then
begin
{ place jump in al_procedures }
current_asmdata.asmlists[al_procedures].concat(tai_align.create(target_info.alignment.procalign));