Преглед изворни кода

* fixed previous commit ...

git-svn-id: trunk@2175 -
florian пре 19 година
родитељ
комит
abc1bcca24
2 измењених фајлова са 2 додато и 16 уклоњено
  1. 1 0
      compiler/ncgutil.pas
  2. 1 16
      compiler/nutils.pas

+ 1 - 0
compiler/ncgutil.pas

@@ -1893,6 +1893,7 @@ implementation
           cg.g_restore_standard_registers(list);
       end;
 
+
     procedure gen_got_load(list : taasmoutput);
       begin
         { if loading got is necessary for more cpus, it can be moved

+ 1 - 16
compiler/nutils.pas

@@ -47,6 +47,7 @@ interface
 
     tforeachprocmethod = (pm_preprocess,pm_postprocess);
 
+
     foreachnodefunction = function(var n: tnode; arg: pointer): foreachnoderesult of object;
     staticforeachnodefunction = function(var n: tnode; arg: pointer): foreachnoderesult;
 
@@ -642,20 +643,4 @@ implementation
         until not(treechanged);
       end;
 
-
-    function doaddnode(var n : tnode; arg: pointer): foreachnoderesult;
-      begin
-      end;
-
-
-    {
-    function createnodelist(var l : tlist;
-      begin
-        if assigned(l) then
-          l.clear
-        else
-          l:=tlist.create;
-
-     }
-
 end.