浏览代码

* new line inserted :)

git-svn-id: trunk@2174 -
florian 19 年之前
父节点
当前提交
c9870d4aa3
共有 1 个文件被更改,包括 16 次插入1 次删除
  1. 16 1
      compiler/nutils.pas

+ 16 - 1
compiler/nutils.pas

@@ -47,7 +47,6 @@ interface
 
     tforeachprocmethod = (pm_preprocess,pm_postprocess);
 
-
     foreachnodefunction = function(var n: tnode; arg: pointer): foreachnoderesult of object;
     staticforeachnodefunction = function(var n: tnode; arg: pointer): foreachnoderesult;
 
@@ -643,4 +642,20 @@ 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.