paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-25 20:57:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

* undid accidental commit of partial TCmdStrListItem change

Browse Source 
git-svn-id: trunk@6199 -
This commit is contained in:
Jonas Maebe 2007-01-26 12:42:20 +00:00
parent 5fde39cd69
commit 44dffffdf2
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/ncgutil.pas
View File

@ -1896,17 +1896,17 @@ implementation
function has_alias_name(pd:tprocdef;const s:string):boolean; function has_alias_name(pd:tprocdef;const s:string):boolean;
var var
item : TCmdStrListItem; item : tstringlistitem;
begin begin
result:=true; result:=true;
if pd.mangledname=s then if pd.mangledname=s then
exit; exit;
item := TCmdStrListItem(pd.aliasnames.first); item := tstringlistitem(pd.aliasnames.first);
while assigned(item) do while assigned(item) do
begin begin
if item.str=s then if item.str=s then
exit; exit;
item := TCmdStrListItem(item.next); item := tstringlistitem(item.next);
end; end;
result:=false; result:=false;
end; end;
@ -1914,22 +1914,22 @@ implementation
procedure alloc_proc_symbol(pd: tprocdef); procedure alloc_proc_symbol(pd: tprocdef);
var var
item : TCmdStrListItem; item : tstringlistitem;
begin begin
item := TCmdStrListItem(pd.aliasnames.first); item := tstringlistitem(pd.aliasnames.first);
while assigned(item) do while assigned(item) do
begin begin
current_asmdata.DefineAsmSymbol(item.str,AB_GLOBAL,AT_FUNCTION); current_asmdata.DefineAsmSymbol(item.str,AB_GLOBAL,AT_FUNCTION);
item := TCmdStrListItem(item.next); item := tstringlistitem(item.next);
end; end;
end; end;
procedure gen_proc_symbol(list:TAsmList); procedure gen_proc_symbol(list:TAsmList);
var var
item : TCmdStrListItem; item : tstringlistitem;
begin begin
item := TCmdStrListItem(current_procinfo.procdef.aliasnames.first); item := tstringlistitem(current_procinfo.procdef.aliasnames.first);
while assigned(item) do while assigned(item) do
begin begin
if (cs_profile in current_settings.moduleswitches) or if (cs_profile in current_settings.moduleswitches) or
@ -1939,7 +1939,7 @@ implementation
list.concat(Tai_symbol.createname(item.str,AT_FUNCTION,0)); list.concat(Tai_symbol.createname(item.str,AT_FUNCTION,0));
if tf_use_function_relative_addresses in target_info.flags then if tf_use_function_relative_addresses in target_info.flags then
list.concat(Tai_function_name.create(item.str)); list.concat(Tai_function_name.create(item.str));
item := TCmdStrListItem(item.next); item := tstringlistitem(item.next);
end; end;
current_procinfo.procdef.procstarttai:=tai(list.last); current_procinfo.procdef.procstarttai:=tai(list.last);