Browse Source

* undid accidental commit of partial TCmdStrListItem change

git-svn-id: trunk@6199 -
Jonas Maebe 18 years ago
parent
commit
44dffffdf2
1 changed files with 9 additions and 9 deletions
  1. 9 9
      compiler/ncgutil.pas

+ 9 - 9
compiler/ncgutil.pas

@@ -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);