|
@@ -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.
|