paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-14 06:02:52 +02: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;
var
item : TCmdStrListItem;
item : tstringlistitem;
begin
result:=true;
if pd.mangledname=s then
exit;
item := TCmdStrListItem(pd.aliasnames.first);
item := tstringlistitem(pd.aliasnames.first);
while assigned(item) do
begin
if item.str=s then
exit;
item := TCmdStrListItem(item.next);
item := tstringlistitem(item.next);
end;
result:=false;
end;
@ -1914,22 +1914,22 @@ implementation
procedure alloc_proc_symbol(pd: tprocdef);
var
item : TCmdStrListItem;
item : tstringlistitem;
begin
item := TCmdStrListItem(pd.aliasnames.first);
item := tstringlistitem(pd.aliasnames.first);
while assigned(item) do
begin
current_asmdata.DefineAsmSymbol(item.str,AB_GLOBAL,AT_FUNCTION);
item := TCmdStrListItem(item.next);
item := tstringlistitem(item.next);
end;
end;
procedure gen_proc_symbol(list:TAsmList);
var
item : TCmdStrListItem;
item : tstringlistitem;
begin
item := TCmdStrListItem(current_procinfo.procdef.aliasnames.first);
item := tstringlistitem(current_procinfo.procdef.aliasnames.first);
while assigned(item) do
begin
if (cs_profile in current_settings.moduleswitches) or
@ -1939,7 +1939,7 @@ implementation
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 := TCmdStrListItem(item.next);
item := tstringlistitem(item.next);
end;
current_procinfo.procdef.procstarttai:=tai(list.last);